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Autor: Matthias Uphoff 

Von der Idee zum Programm 


Nehmen Sie teil an dem Abenteuer 
"Computer"! In zehn lebendig und 
leicht verständlich geschilderten Reisen 
in die Welt der Computergrafik, Simula¬ 
tion und künstlichen Intelligenz erarbei¬ 
tet der Autor mit Ihnen zusammen 
insgesamt 17 interessante Programme, 
die Sie auf Diskette/Kassette erhalten. 

Das umfangreiche, 180seitige Handbuch 
vermittelt Ihnen auf anschauliche und 
unterhaltsame Weise, wie aus Algorith¬ 
men Datenstrukturen und letztendlich 
Software entsteht: Von der Idee zum 
Programm - der ideale Kursus zum 
Einstieg in das Computerwissen, für 
Hobby und Schulunterricht. Sehen Sie 
selbst, zu welchen phantastischen 
Grafiken und verblüffenden Intelligenz¬ 
leistungen der CPC bei raffinierter 
Programmierung fähig ist! 

Weiterhin: 

Komplexe Grafik 

Sie lernen die mathematischen Grundlagen von Fraktalgrafiken und erarbei¬ 
ten einen kompletten Fraktalgenerator zur Erzeugung von “Apfelmännchen“- 
Bildern. 

Der Computer lernt 

Erleben Sie ein Paradebeispiel lür “Künstliche Intelligenz“: Das Programm 
"Minischach“ ist lernfähig und wird mit jeder Partie ein bißchen besser. 
Wordmaster 

Sie raten ein Wort, das sich der Computer ausgedacht hat. Dann rät der 
Rechner ein Wort, das Sie sich ausgedacht haben. Wer braucht weniger 
Versuche? Sie werden sich wundern... 

Wordketten 

Mit einem raffinierten Algorithmus löst der CPC Wortketten-Rätsel. Oder er 
erfindet neue Rätsel - ganz wie Sie wollen. 

Entwicklungshilfe 

Eine gut ausgestaltete Simulation versetzt Sie in die Lage eines Entwick¬ 
lungshelfers, der eine Hungersnot abzuwenden versucht. Aber Ihre Mittel 
sind begrenzt. 

Das Software-Experiment 

• Siebzehn verschiedene, lauffähige Programme 

• 180 Seiten Anleitung 

Kassette nur DM 29, - * 

Diskette nur DM 39, - * 
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Der Computer als Stratege 
Ein raffiniertes System von Spielzugbe¬ 
wertungen macht den CPC zu einem fast 
unschlagbaren Gegner im Gobang-Spiel, 
I der Ihnen anfangs saftige Niederlagen 
bescheren wird. Keine Angst - das 
Programm ist zu schlagen - aber wie, das 
müssen Sie selbst herausfinden. 
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Das Spiel des Lebens 
Nach natürlichen Prinzipien des 
Wachstums erzeugt der Computer 
phantastische, kristallförmige Farb- 
strukturen. Ändern Sie die Regeln und 
Voraussetzungen und sehen Sie, was 
für neue, noch nie dagewesene For¬ 
men sich ergeben. 
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Das Ökologie-Experiment 

Der Computer zeigt Ihnen in animier¬ 
ter Farbgrafik einen simulierten 
Lebensraum mit Weideland, Schafen 
und Wölfen. Erforschen Sie die öko¬ 
logischen Gesetzmäßigkeiten, und 
schaffen Sie ein stabiles, natürliches 
Gleichgewicht. 


Pascal läßt grüßen 
Ein erstaunliches Programm enthüllt 
verborgene Strukturen im 
sogenannten “Pascalschen Drei¬ 
eck“. Die grafische Darstellung 
ergibt traumhaft schöne und farbige 
Musterbilder. 


Mit roher Kechengewalt 
Mit dem “Brüte-Force“- 
Algorithmus darf der CPC so rich¬ 
tig loslegen und spielt mit roher 
Rechengewalt in dem afrikani¬ 
schen Strategiespiel “Kalaha“ alle 
Gegner an die Wand - oder kön¬ 
nen Sie ihn trotzdem schlagen? 


für CPC 464/664/6128 


* Unverbindliche Preisempfehlung. Unabhängig von der Anzahl der bestellten Artikel berechnen wir für das Inland 4.- DM bzw. für das Ausland 6,- DM Porto und Verpackung. 

Bitte benutzen Sie die Bestellkarte. / / / 
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DER COMPUTER - 
DIE FRAU - 

DAS PROBLEM! 


Lange Jahre galten Eisenbahn oder ferngesteuerte Flugmodelle als Idealspielzeug 
des Mannes, doch seit der technisch-digitalen Revolution vor gar nicht allzulanger 
Zeit konnte der Genialität des Mannes noch weiter auj die Sprünge geholfen werden. 
Der moderne und an der Technik interessierte Mann widmete sich dem Computer 
und fand bzw. vervollkommnete hierdurch seine unbegrenzten Fähigkeiten, die der 
Computer in scheinbar unendlicher Auswahl an technischen Herausforderungen Tag 
für Tag neu eröffnet. 

Eine weitere Herausforderung, um nicht zu sagen ein Problem, ist, wie schon seit 
Hunderten von Jahren - die Frau. 


Wie schon die anderen Hobbys “des starken Geschlechts “ sieht sich die Frau ins 
Abseits gestoßen und fühlt sich einfach überflüssig. Natürlich bildet sich die Frau 
dieses, aus Sicht des Mannes, nur ein. Doch weiß jeder Mann, daß die Frau sich oft 
zu einer Art störendem Virus entwickelt. Etwa dann, wenn MAN dabei ist, Lösungen 
zu finden, wie zum Beispiel für wichtige berufliche Berechnungen oder für 
Abwehrmaßnahmen gegen Angriffe von Außerirdischen. Dann wird die Frau zu 
einem nörgelnden Etwas, das dem gestreßten Mann in den Ohren liegt und seine 
Nerven auf eine Zerreißprobe stellt. 

Doch muß der Mann immer häufiger feststellen, daß die Frau die Unverschämtheit 
besitzt, einfach in die “Männersache “ einzugreifen. 

Fatal dabei ist, daß sie den Computer meist als nützliche Gerätschaft zur 
Problemlösung ansieht, nicht aber, wie der Mann, den spielerischen Charakter 
dieses Geräts in den Vordergrund stellt. Das häufig allzu logische und nützliche 
Denken bringt DEN MANN dann schon fast an den Rand der Verzweiflung, denn 
jetzt ist der Feierabend nicht mehr mit Spielen am Computer ausgejüUt, sondern mit 
Schreibarbeiten, die DIE FRAU durch geschicktes Organisieren für ihr zusätzliches 
Taschengeld in Anspruch nimmt. 

Daß dies nur der Anfang einer Phase ist, in der das “Problem “ (die Frau) immer 
mehr zur aktiven Problemlösung wird, scheint unwiderruflich. Da kann den 
Männern nur die Flucht zu einem neuen Spielzeug empfohlen werden; “Erbarmen, 
die Fraue komme... “ 



Anke Kerstan 
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Jetzt wird dem Fehlerteufel die Hölle heiß gemacht. Fehlermeldungen 
und ihr Ursprung c* «*c 
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Im Test: Eine Hotel¬ 
verwaltung a la car¬ 
te für den PCVZ 

S.60 



SOFTWARE REVIEWS: 

16 Spiele 

- Mr. Heli 

- Silkworm 

- Rock 'n' Roll 


PCW: 


Hotel und Hotel Plus 60 

- Für die Hotelbranche gibt es jetzt eine kom¬ 
plette Verwaltung. Was Sie leistet, verraten 
wir Ihnen in unserer PCW-Rubrik. 


Tips zu Prowort Office (Teil 2) 62 

- Nachdem Sie im vorigen Teil Informationen 
über den Filer erhalten haben, widmen wir 
uns diesmal dem zweiten Teil des Paketes. 
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Fliegen war schon immer der Traum der Menschen. Wer schon mal 
üben will, der kann es mit dem neuen Flugsimulator IV tun 


S.98 




Ein besonderer 


Leckerbissen für 
den Amstrad-PC ist 


der 3D-Funktions- 


p!Otter 
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PC: 


78 MS-DOS, die ersten Berührungen 

- Interne Befehle - eine kommentierte Über¬ 
sicht 

80 Mit Käsestück und Peitsche 

- Unter dem Motto "Die Nagetiere beherr¬ 
schen" steht unsere kleine Reihe über 
Mausprogrammierung. 

84 Dunkel waKs 

- Bildschirmschonend - ein Programm zum 
automatischen Abschalten der Monitoraus¬ 
gabe 

87 Flucht in die dritte Dimension 

- Das BASIC2-Top-Programm zur grafischen 
Darstellung von mathematischen Funk¬ 
tionen 

98 Abenteuer Fliegen 

- Flugsimulatoren im Kürztest 

100 GEM-Trickkiste 

- Praktische Hilfen zu GEM 


RUBRIKEN: 


Editorial 

3 

Impressum 

3 

Aktuell 

6 

Leserbriefe 

54 

Kleinanzeigen 

58 

Händlerverzeichnis 

59 

Bücher 

96 

Inserentenverzeichnis 

102 

Vorschau 

102 


5’90 PC 5 































1—Aktuell 


Neue CPCs 


Die englischen CPC-Freunde 
dürfen mit einiger Spannung in 
die Zukunft schauen. Gleich 
drei neue CPCs werden dem¬ 
nächst auf der Insel erhältlich 
sein. Der CPC 464 plus, der 
CPC 6128 plus und die CPC- 
Spielkonsole. 

Die “plus“-Modelle sind tech¬ 
nisch verbesserte Versionen ih¬ 
rer populären Vorgänger. 
Schnellerer Hauptprozessor, 
hardwaremäßige Grafikunter¬ 
stützung (Sprites und Hardware- 
Scrolling), eine erweiterte Farb- 
palette und 6-Kanal-Stereo- 
sound sind die Charakteristika 


der neuen CPC-Generation. 
Alle Geräte sollen vollständig 
kompatibel zu ihren Urvätern 
sein. Ein Gamecard-System er¬ 
weitert die Möglichkeiten im 
Hinblick auf den Unterhaltungs¬ 
wert dieser Computer. Ab Sep¬ 
tember sollen diese Geräte im 
englischen Handel erhältlich 
sein. 

Der deutsche Markt wird laut 
Auskunft von Amstrad Deutsch¬ 
land definitiv nicht durch diese 
Produkte vergrößert, was vor al¬ 
lem in Hinblick auf die Spiel¬ 
konsole als schade bezeichnet 
werden muß. 


Firmenaufgabe der LogTechWeg 


Seit dem 1. April 1990 hat die 
Firma LogTechWeg die Pforten 
geschlossen. Nicht etwa der 
Pleitegeier war für die Finnen¬ 
aufgabe verantwortlich, sondern 
der unerwartete Geldregen, den 
der Verkauf des Kenner-Scan- 
ner-Weg-Moduls einbrachte. 


Mit fast 500.000 Exemplaren 
wurde ein Nettogewinn von 
knapp 25 Millionen DM einge¬ 
fahren, mit dem der Chef der 
Firma sich ein Domizil auf den 
Bermudas leistete. Wir wün¬ 
schen viel Vergnügen... 


Neue Datenbank von TOBIT-Software 



Mit DATURA stellt TOBIT- 
Software GmbH eine dynami¬ 
sche Datenbank vor, die vor al¬ 
lem durch ein komfortables 
Suchsystem auflällt; selbst ein¬ 
zelne Silben können innerhalb 
beliebiger Datensätze lokalisiert 
werden. Die theoretisch maxi¬ 
male Dateigröße, die DATURA 
verarbeiten kann, liegt bei 2 
GByte. Frei definierbare Druck¬ 
masken, Passwortschutz für ein¬ 
zelne Felder, unbegrenzte An¬ 
zahl der Datensätze, Fremd for- 


matverarbeitung und Unterstüt¬ 
zung von Scannern etc. sind nur 
einige Punkte, die das Pro¬ 
gramm bieten soll. 

Auf den ersten Blick fiel vor al¬ 
lem das sehr durchdachte Instal¬ 
lationsprogramm auf. Ein aus¬ 
führlicher Test folgt in einer der 
nächsten Ausgaben. 

Info: 

TOBIT-Software GmbH 
Industriestraße 15 
4422 Ahaus 
Telefon: 02561/69011 



Softwaremäßigen Zuwachs hat 
Harvard Graphics, das bekannte 
Programm zur grafischen Aus¬ 
wertung von Statistiken, bekom¬ 
men. War es bisher nur mög¬ 
lich, die vorgegebenen Bilder 
und Symbole in die Balken- und 
Tortendiagramme einzubauen, 
so ist der Benutzer nun auch in 
der Lage, eigene Grafiken zu er¬ 
stellen und diese wie die vorge¬ 
gebenen zu behandeln. 

Es wurde ein Zusatzprogramm 
entwickelt, das eigenständig 


läuft. Das eigentliche Präsenta¬ 
tionsprogramm ist weder verän¬ 
dert noch erweitert worden. Das 
auf der Packung aufgedruckte 
Label “Neue Version“ ist dahin¬ 
gehend ein wenig irreführend. 
Eine wirklich neue Version, die 
dann auch durch Scanner einge¬ 
lesene Bilder verarbeiten kann, 
soll Ende des Jahres auf den 
Markt kommen. 

Info: DAT AG 
Gothaerstraße 27 
4030 Ratingen 



Das bisher nur für den PCW 
vertriebene Schaltinterface der 
Firma Didaktische Hard- und 
Software aus Bad Säckingen ist 
ab sofort auch für den CPC er¬ 
hältlich. 

Das Interface wird am Expan¬ 
sionsport angeschlossen. Insge¬ 
samt acht Ein- und Ausgänge 
stehen dem Anwender zur Ver¬ 
fügung. Gegenüber der PCW- 


Version können am CPC insge¬ 
samt vier (beim PCW acht) In¬ 
terfaces gleichzeitig betrieben 
werden. 

Info: 

E. Sinkwitz, Didakt. Hard- 
und Software 
Zähringerstraße 7 
7880 Bad Säckingen 
Preis: 390,— DM 
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Auch die CPC-Besitzer können 
in Kürze auf die Annehmlich¬ 
keiten einer Festplatte zurück¬ 
greifen. 

Die Firma Dobbertin bietet spe¬ 
ziell für den CPC eine Sea- 
gate-20-M Byte-Festplatte an. 
Es handelt sich dabei um eine 
3,5-Zoll-Platte, die für den CPC 
in vier Partitionen a 5 MByte be¬ 
trieben wird. Jede Partition wird 
als eigenes Laufwerk deklariert. 
Der Anschluß erfolgt per Inter¬ 
facekarte über das Expansions, 
wobei für jeden CPC-Typ eine 
eigene Anpassung existiert. 


Geliefert wird die Festplatte an¬ 
schlußbereit inklusive notwen¬ 
diger Software. 

Der Strombedarf der Festplatte 
wird wahlweise über den CPC 
oder eine externe Speisung be¬ 
friedigt. Die Kosten für diese 
Erweiterung betragen 1100, — 
DM. Ein ausführlicher Test 
folgt. 

Info: 

Dobbertin Industrie-Elektronik 
Brahmsstraßc 9 
6835 Brühl 
Telefon: 06202/71417 


Laplink geht auf anderen Wegen 


Das Programm Laplink, wel¬ 
ches für den Transfer von Daten 
von einem PC auf einen anderen 
gedacht ist, liegt jetzt in einer 
neuen Version vor. 

Die Version III von Laplink ver¬ 
fügt über dieselben Eigenschaf¬ 
ten wie der Vorgänger Laplink 
Plus. Hinzugekommen ist die 
Funktion zum Übertragen von 
Daten über eine parallele 
Schnittstelle, was mit einer Ge¬ 
schwindigkeit von 500000 Baud 
— also 3 MByte pro Minute — 
vonstatten gehen kann. Auch die 


serielle Übertragung wurde ver¬ 
bessert. Jetzt ist cs möglich, mit 
einer Datengeschwindigkeit von 
200000 Baud zu kopieren. 

Im Lieferumfang befinden sich 
neben Handbuch und Software 
auf 5,25- und 3,5-Zoll-Diskette 
noch Universalkabel zur seriel¬ 
len und parallelen Übertragung. 
Info: 

Travel ing Software 
Deutsches Büro 
Duisburger Straße 170 
4220 Dinslaken 
Preis: 399,- DM 


Maus- und Keyboardtreiber-Service bei Amstrad 


Betreiber des PC 1512 werden 
bei Nutzung von Windows 2.01 
oder MS-DOS 3.3 schon öfter 
über Probleme mit Maus- oder 
Keyboardtreiber geklagt haben. 
Bevor Sie sich an einer zeitrau¬ 
benden Anpassung versuchen, 
sollten Sie direkt bei Amstrad 


die bereits angepaßten Versio¬ 
nen der Gerätetreiber anfor¬ 
dern. 

Info: 

Amstrad GmbH 
Dreieichstraße 8 
6082 Mörfelden-Walldorf 
Telefon: 06105/2003-0 


File Organizer von Pubtech 


Hinter dem File Organizer, in¬ 
zwischen in der Version 2.10, 
verbirgt sich ein Desktop-Ma- 
nager für Windows. Im Aufbau 
und in der Funktion ähnelt er 
der Workbench des Ainiga. Je¬ 
dem Programm wird ein Icon 
zugewiesen, welches optisch an¬ 
gibt, um welche Art von Datei 


es sich handelt. Leider können 
wir keine Angaben über den 
Preis dieser Software machen. 

Info: 

Intellis Windows & OS/2 PM 
Software 

Witikonerstraße 297 
CH-8053 Zürich 


DOS-Tutor 


Aus dem Hause Falken Software 
kommt ein Lernprogramm für 
MS-DOS-Computer. 

Es beinhaltet neben der Klärung 
der grundlegenden Problematik 
von Soft- und Hardware Hilfen 
für die Befehle des DOS. Die 
Möglichkeit, daß Sie den Pro¬ 
grammablauf kurzfristig unter¬ 


brechen und in das DOS zurück¬ 
kehren können, versetzt Sie in 
die Lage, daß Sie alles Gelernte 
gleich direkt unter DOS auspro¬ 
bieren können. 

Info: 

Falken Software 
6272 N iederhausen/Ts. 


MEMO - Gedankenstütze für Literaten 



Mit einem speziell auf die Ar¬ 
beit mit umfangreichen Buchda¬ 
teien ausgerichteten Datenbank¬ 
programm versucht BiblioSoft, 
die Arbeit von Bibliothekaren 
oder privaten Bücherliebhabern 
zu erleichtern. 

Mit einem Schlagwortsystem 
und komfortablen Suchmecha¬ 
nismen sollte das schnelle Fin¬ 
den von bestimmten Schriftwer¬ 
ken aus einem unübersichtlich 
großen Datenbestand kein Pro¬ 
blem darstellen. 

Das Programm bietet darüber 
hinaus Extras wie Datentrans¬ 
fer. Kürzel Speicher und Schnitt¬ 
stelle zu Textverarbeitungen. 
Durch selbstbestimmbare Be¬ 
nennung der Datenfelder kann 
MEMO auch außerhalb der Bii- 


cherverwallung benutzt werden. 
In der vollständigen Original¬ 
version wird das Programm mit 
einer 436seitigen Dokumenta¬ 
tion und Zusatzmodulen (Ver¬ 
wendung von dBase-Befehlen. 
Druckerinstallationen etc.) aus¬ 
geliefert. 

Erwähnenswert ist die Preisge¬ 
staltung: Kostet das Produkt im 
Normalfall 175,- DM (Update- 
und Hotline-Service inbegrif¬ 
fen), so verringert sich der Preis 
für Schüler und Studenten auf 
95,- DM. 

Info: 

BiblioSoft 

Erhard Christian Gust 
Postfach 1567 
3550 Marburg 
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CeBIT ’90 


Eindrücke des Computerspektakels 


Alle Jahre wieder, alle Jahre mehr. Wenn die CeBIT ihre 
Pforten öffnet, dann kann man, ohne prophetische 
Veranlagungen zu besitzen, behaupten, daß sie die Rekorde 
des letzten Jahres in den Schatten stellen wird. Mehr Besucher, 
mehr Aussteller, mehr Umsatz und mehr Pannen. 
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Der neue Laptop in Aktion. Das Display zeichnet sich durch beste Qualität 



Nicht nur außen chic, auch innen aufgeräumt. Da zeigt sielt aer 
zum PPC 


Eigentlich sollte ja US-Präsident George 
Bush pünktlich zum Messebeginn per 
Leitung über den großen Teich einige 
passende Worte durch den Bildschirm 
sprechen, doch mußten die Besucher 
auf das animierte Antlitz des Präsiden¬ 
ten verzichten. Technische Probleme — 
da hilft dann das gute alte Standbild, 
und hören kann man ja bekanntlich 
auch ohne Monitor. 

Und mag es für den oder die Verant¬ 
wortlichen auch noch so unangenehm 
sein, als Betrachter dieses vor Technik 
nur so strotzenden Spektakels kommt 
man bei solchen Pannen um die gesun¬ 
de Schadenfreude nicht herum. 

Mehr Schaden als Freude mußte die 
Artware-Ausstellung (der stetige Ver¬ 
such, modernste Techniken mit einem 
Touch Kunst zu versehen) hinnehmen. 
Bei einer Feier in den heiligen Hallen 
der “künstlichen Technik“ oder “tech¬ 
nischen Kunst“ gewann der Schampus 
die Herrschaft über einen Journalisten 
und veranlaßte diesen, sich tätlich an 
einem Ausstellungsstück zu vergreifen. 
Die Feierlichkeiten mußten daraufhin 
abgebrochen werden. 

DMV statt Intel 

Noch 'ne Panne? Hier ist sie: Alle die¬ 
jenigen, denen es nach Kontakt mit Ma¬ 
chern von Intel dürstete, mußten nach 
dem langen Marsch zur Halle 19 am 
Stand D27 feststellen, daß Sie einem 
Mißverständnis zwischen SPEA SOFT- 
WARE und den Zusammenstellern des 
Messeplanes aufgesessen waren; denn 
Intel war überhaupt nicht auf der Messe 
vertreten, vielmehr war deren Name in 
die Hallenpläne gerutscht, weil eine In¬ 
formation der SPEA SOFTWARE 
falsch interpretiert wurde: Wir benut¬ 
zen Chips von Intel! 


Betrübt von der Enttäuschung, doch 
keine Dokumentationen der 486er- 
Chips zu bekommen, zogen es viele der 
Besucher vor, den Geschmack der wah¬ 
ren Chips als Trostpflaster zu genießen. 
So fanden sich viele beim Stand des 
DMV-Verlages ein, der. wie schon im 
letzten Jahr, für leibliches Wohl durch 
frittierte Kartoffelscheiben sorgte. Be¬ 
sonderes Interesse weckten hier die 
Softwareprodukte, allen voran die 
durch Rechtschreibhilfe und Zeichen¬ 
editor ergänzte Textverarbeitung Con- 
Text Pro. Vermutungen und Gerüchten 
zufolge sollten neue Produkte vom eng- 


Laptop Alt 286 


Technische Daten 
Prozessor: INTEL 80286 
Taktfrequenz: 16 MHz (Coprozes¬ 
sor 80287 steckbar) 

RAM: 1 MByte (erweiterbar auf 4 
MByte) 

Massenspeicher: 3 1/2-ZolTDisket- 
tenlaufwerk mit 1,44 MByte, 20- 
MByte-Festplatte, Anschluß für ex¬ 
ternes Diskettenlaufwerk 

Grafik: VGA/ EGA/ CGA/ MDA/ 
Hercules 

Tastatur: AT-kompatibel, 85 Tasten 
mit 12 Funktionstasten 
Schnittstellen: zweimal seriell, ein¬ 
mal parallel 

Steckplätze: einmal 16 Bit, halbe 
Länge 

Betriebsdauer: mit Akku zirka zwei 
Stunden oder Stromversorgung 220 
Volt/50 Hz über eingebautes Netzteil 
Maße: 580x 95x318 (Breitex Tiefex 
Höhe) 

Gewicht: zirka 6 kg 
Preis: 5500,- DM 


lischen Hersteller Amstrad auf den 
Markt kommen. Daß in jedem Gerücht 
ein Körnchen Wahrheit steckt, davon 
konnten wir uns auf der Hannover- 
Messe CeBIT ’90 überzeugen. Überra¬ 
schenderweise wurde nicht nur ein 
Laserdrucker angeboten, sondern auch 
gleich zwei neuartige Laptops - trag¬ 
bare Computer -, die nicht nur durch 
ihr extravagantes Aussehen für Aufse¬ 
hen sorgen werden. 

Betrachtet man sich den Laserdrucker, 
so fallen einem gleich die Worte ein: 
“Was, so klein und schon ein Laser¬ 
drucker?“ Nein, Scherz beiseite. Die 
kompakte Form läßt wirklich nicht ver¬ 
muten. daß hinter den Kulissen ein aus¬ 
gewachsener Laserdrucker steckt. Mit 
seiner beigen Farbe paßt er sich hervor¬ 
ragend der gesamten Amstrad-Palette 
an, so daß alle Geräte vom Drucker bis 
hin zum PC ein harmonisches, ästheti¬ 
sches Bild ergeben. Der Preis von 
knapp 4000 DM ist schon eine kleine 
Sensation, aber für den normalen An¬ 
wender einfach noch unerschwinglich. 
Wer aber professionelles Arbeiten vor¬ 
zieht und auch einen entsprechenden 
Geldbeutel besitzt, kann von dem gün¬ 
stigen Angebot profitieren. Allerdings 
sollte man bedenken, daß ein Grafik¬ 
ausdruck wesentlich mehr Speicher be¬ 
nötigt als ein schneller Textausdruck. 
Und" hier werden für eine 1,5-MByte- 
Erweiterung 1482,- DM extra ver¬ 
langt. 

Sind Portables tragbar? 

Tragbare Computer, kurz Portables ge¬ 
nannt, sind in manchen Bereichen ein¬ 
fach nicht wegzudenken, da vor Ort 
oder im Einsatz nicht immer ein kom¬ 
plettes Computersystem für Datenein¬ 
gaben zu Verfügung steht. 


10 PC 5’90 












































Amstrad 
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Abonnement 

er hältlich 


Kassette 


DATABOX 


Das ist die Software 
zur PC International 
jeden Monat neu 

DATABOX: 

- mehr als der übliche 
Software-Service 


Herr düc non Sao!i>*n 

— NcraiiUi U«U|t- - 
Sohl echte Ernte 
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Uiutvi'ris » Cl* 

t Korn Jc*u(«n 
i >iöi-n verkauf«*» 

*• L«nd 
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Feuerkuopf druecken 


CeBIT ’ 

Naue Amsttsd- 


I MHDp 


Bis zu sieben Personen können an der CPC-Wirtschafts- 
simulation reilnehmen 


bringt ergänzend 
sämtliche Listings 
der jeweiligen 
Zeitschrift und alle Programmbeispiele auf Kassette 
oder auf 3-Zoll-Diskette. 

Die Programme sind, soweit systembedingt möglich, 
auf allen drei CPC-Modellen lauffähig. Einzelheiten 
entnehmen Sie bitte der nebenstehenden Aufstellung. 

Soweit die Programme nicht Bestandteil einer Serie 
sind, befinden sich alle Programme als »ready to run« 
auf der DATABOX. 

erscheint jeden Monat und trägt das Titelbild des 
gleichzeitig erscheinenden Heftes. 

Der Datenträger zur PC International enthält außerdem 
jedesmal ein zusätzliches Bonusprogramm, das nicht im 
Heft abgedruckt ist. 

Preisvorteil durch DATABOX-Abo: 

Unser beliebter DATABOX-Servlce kann selbstverständ¬ 
lich auch im Abonnement bezogen werden. Dadurch 
sparen Sie Mühe und haben außerdem noch einen 
Preisvorteil gegenüber dem Einzelbezug. 

Das DATABOX-Abo kostet: 

Als Kassette für 1/2 Jahr 
(6 Lieferungen): 

Im Inland und West-Berlin..90.— DM 

Im europäischen Ausland..100,— DM 

Im außereuropäischen Ausland.120— DM 

Als Diskette für 1/2 Jahr (6 Lieferungen): 

Im Inland und West-Berlin.150 — DM 

Im europäischen Ausland.160.— DM 

Im außereuropäischen Ausland.180,— DM 

Als Kassette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin.180,— DM 

Im europäischen Ausland.200,— DM 

Im außereuropäischen Ausland.240,— DM 

Als Diskette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin.300,— DM 

Im europäischen Ausland.320,— DM 

Im außereuropäischen Ausland.360,— DM 

Bitte benutzen Sie für Ihre Bestellung 
die Abo-Karte. 


XL'TS**** 

V^ 16 ' S s Ve\ 

c \xes$ 


so** 
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Einzelbezugspreise für Databox: 

3-Zoll-Diskette 






Inland, 

EfflZ«lpifr<A 
rxgl. V*rn/»nn<a&:o" 

24.- DM 

4.- DM 

Ausland: 

Einzelpreis 

zzgi Varwndtotten 

24 - DM 

6- DM 

Endprefi 

26.- DM 

Endprots 

30.- DM 

Kassette 

Inland: 

E"iwtpren 
«gl. VorsiindliMler. 

14.- DM 
4,- DM 

Ausland: 

Einzolpft-'S 
zzgi Versnndkoalen 

14. - OM 

6. - DM 


I#,- DM Endpraii 


Zahlungsweise: 

Am einfachsten per Vorkasse (Verrech¬ 
nungsscheck) oder als Nachnahme zu¬ 
züglich der Nachnahmegebühr. Bei 
Lieferungen ins Ausland ist Nachnah¬ 
me nicht möglich. 


Widerrufsrecht: Jeder Abonnent hat das 
Recht, seine Bestellung innerhalb einer Woche 
beim DMV-Verlag, Postfach 250, 3440 Eschwe- 
ge, schriftlich zu widerrufen. Die rechtzeitige 
Absendung des Widerrufsschreibens genügt 
zur Fristwahrung. 


Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 
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Für den mobilen Bereich hatte Amstrad 
schon vor ein paar Jahren den PPC 512 
konzipiert, der zum Beispiel Außen¬ 
dienstlern die Arbeit erleichtern sollte. 
Doch dieser war nicht für jeden 'trag¬ 
bar’. Nun, im Jahre 1990, präsentiert 
Amstrad eine völlig neue Generation an 
Laptops, die sich nicht nur im Ausse¬ 
hen vom PPC unterscheiden, sondern 
auch eine völlig neuartige Bilddarstel¬ 
lung besitzen. Ihre Möglichkeit, VGA- 
Grafiken mit einer Auflösung von 
640 x 480 Punkten darzustellen, die 
noch dazu kompatibel zu den bekann¬ 
ten Grafikstandards wie EGA, CGA, 
MDA und Hercules sind, kann man 
schon fast als selbstverständlich hin¬ 
nehmen; daß aber in der Monochrom¬ 
darstellung eine 256-Farben-Palette in 
32 Graustufen umgesetzt wird, ist 
schon enorm. 

Wer den schnellen Portablen zu Hause 
einsetzen will, kann bei Bedarf eine zu¬ 
sätzliche Tastatur oder einen externen 
Monitor anschließen. Die passenden 
Anschlüsse sind bereits an den richti¬ 
gen Stellen vorhanden. 

Die portablen Rechner gibt es in zwei 
verschiedenen Versionen, den Alt 286 
und den Alt 386SX, die sich aber nur 
durch Kleinigkeiten unterscheiden - 
siehe technische Daten. 

Für einen leichten Einstieg in die PC- 
Weit bietet Amstrad den Einsteigern - 
und nicht nur denen - Softwaremodule 
mit einem guten Preis-Leistungsver¬ 
hältnis an. Die Palette reicht von Text¬ 
verarbeitung, Datenbank, Fakturie¬ 
rung, Finanzbuchhaltung, Personalver¬ 
waltung bis hin zur Kassenverwaltung. 
Ein großes Plus bei dieser Software ist 
der Datenaustausch untereinander. Das 
bedeutet, daß Daten ohne weiteres im- 
und exportiert werden können. 

Nicht nur die Laptops feiern 

Premiere 

Als Premiere in Deutschland stellte 
Amstrad seinen kyrillischen PC 1640 
vor, wobei die allererste öffentliche 
Vorstellung in Moskau stattfand. Die¬ 
ser PC wird aller Wahrscheinlichkeit 
nach nur in den osteuropäischen Nach¬ 
barländern verkauft und vertrieben 
werden. Ob es auch entsprechende Ge¬ 
räte, deren Handbücher weitgehend in 
die russische Sprache übersetzt sind, in 
Deutschland geben wird, ist die Frage. 
Die Antwort wird sich wohl zu einem 
späteren Zeitpunkt ergeben, denn auch 
hier wird das alte Gesetz von Angebot 
und Nachfrage entscheiden. Warten 
wir’s ab. 
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Laptop Alt 386SX 


Technische Daten 

Prozessor: INTEL 80386 

Taktfrequenz: 16 MHz 

RAM: / MByte (erweiterbar auf 4 

MByte) 

Massenspeicher: 3 1/2-ZolTDisket- 
tenlaufwerk mit 1,44 MByte, 40- 
MByte-Festplatte, Anschluß für ex¬ 
ternes Diskettenlaufwerk 
Grafik: VGA/ EGA/ CGA/ MDA/ 
Hercules 

Tastatur: AT-kompatibel, 85 Tasten 
mit 12 Funktionstasten 
Schnittstellen: zweimal seriell, ein¬ 
mal parallel 

Steckplätze: einmal 16 Bit, halbe 
Länge 

Betriebsdauer: mit Akku zirka zwei 
Stunden oder Stromversorgung 220 
Volt 150 Hz über eingebautes Netzteil 
Maße: 580x 95x 318 (Breitex Tiefex 
Höhe) 

Gewicht: zirka 6 kg 
Preis: 6900,— DM 


Bestätigt wurde, daß die neuen CPCs, 
die in England, Spanien und Frank¬ 
reich auf den Markt kommen werden, 
den deutschen Anhängern dieser Com¬ 
puter vorenthalten bleiben. Wer sich 
also mit diesen Geräten beschäftigen 
will, muß sie im Urlaub käuflich er¬ 
werben. Erwähnt sei an dieser Stelle, 
daß, obwohl diese neuen Geräte den 
Namen Amstrad tragen, Amstrad 
Deutschland weder den Vertrieb noch 
die Wartung dieser Computer überneh¬ 
men wird. Aufgrund der individuellen 
Geschäftsführung der einzelnen Am- 
strad-Niederlassungen nimmt sich die 
deutsche Abteilung von Amstrad dieses 
Gerätes nicht mehr an. Man will sich 
vom Markt der 8-Bit-Computer völlig 
zurückziehen, was bereits deutlich 
wird, wenn man die Palette der von 
Amstrad Deutschland angebotenen Ge¬ 
räte ansieht: Die 8-Bit(ter) gehören 
nicht mehr dazu. 

Neu’s vom Joyce 

Auch für den PCW gab es auf der Ce¬ 
BIT Neuigkeiten. 

Nach einem Besuch auf dem Loco- 
Motive-Stand war es sicher: Loco- 
Script PC wird in den letzten Zügen fer¬ 
tiggestellt. Neben einem erstklassigen 
Spellchecker sind im Programm alle 
Funktionen von LocoScript PCW vor¬ 
handen. Anders als beim PCW ist je¬ 
doch die Darstellung des Textes. WY- 
SIWYG-Technik erlaubt hier das Ge- 
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Laserdrucker LD 6000 


Technische Daten 
Drucksystem: Laserdrucker mit 
sechs Seiten pro Minute 
Auflösung: 300 x 300 dpi (dots per 
inch) 

Papierbreite: maximal DIN A4 
Schnittstellen: parallel (Centro¬ 
nics), seriell (RS232 C) 

Puffergröße: 512 kByte, erweiterbar 
von 1,5 bis 4 MByte 
Emulationen: HP LaserJet Serie II, 
Diabolo 630, EPSON FX 80, IBM 
Proprinter, IBM Graphics Printer 
Maße: 33 x 34 x 27,6 cm (Breite x 
Tiefe x Höhe) 

Gewicht: zirka 15 kg 
Papierzuführung: durch Kassette 
mit bis zu 250 Blatt, die einzeln ein¬ 
gezogen werden 
Preis: 3995, - DM 


schriebene auf dem Monitor so zu se¬ 
hen. wie es später auf dem Papier aus- 
sehen wird. 

Die ersten Exemplare werden voraus¬ 
sichtlich Mitte bis Ende Mai von der 
Firma Wiedmann im deutschsprachi¬ 
gen Raum ausgeliefert. 

Recht interessante Hard- und Software 
wurde auch an dem Amstrad-Stand von 
der Firma Wiedmann präsentiert. 

Als Joycer konnte man hier bewundern, 
wie durch einfaches Anstecken einer 
512-kByte-RAM-Box das interne Lauf¬ 
werk M auf satte 880 kByte aufgerüstet 
wurde. 

Mit dem Programm Fiskus (für 1989 
und 1990) können Sie Ihren Lohnsteu¬ 
erjahresausgleich und Ihre Einkom¬ 
mensteuererklärung für alle Einkünfte 
aus 'nichtselbständiger Arbeit’ er¬ 
stellen. 

Ebenfalls bei der Firma Wiedmann er¬ 
hältlich ist ein sehr guter Schreiblehr¬ 
gang für den PCW, welcher Schritt für 
Schritt Ihr Geschriebenes auf dem 
PCW überprüft und verbessert. 

Was so am Rande passierte 

Viele nehmen die Strapazen der jährli¬ 
chen Reise nach Hannover bekanntlich 
nur auf sich, um die Kleinigkeiten am 
Rande zu erleben. Und daß bei über 
4000 Ausstellern und mehr als 80000 
Besuchern pro Tag eine Menge Randge¬ 
schehen vor sich geht, ist zweifellos. 

Gar nicht zum Schmunzeln, eher be¬ 
sorgniserregend, ist der traurige Nega¬ 
tivrekord der eingezogenen Führer¬ 



Schön in den letzten Jahren wurden die 
Entwicklungen des optischen Speicher¬ 
mediums vorangetrieben und verstärkt. 
Die damaligen Aufzeichnungsgeräte 
boten nur die Möglichkeit, Daten ein¬ 
malig auf eine CD-ähnliche Scheibe zu 
schreiben, ohne ältere Daten zu lö¬ 
schen. Doch die heutigen Geräte haben 
sich zu einem High-Tech-Produkt ent¬ 
wickelt, die alle bekannten Vorzüge ei¬ 
ner Festplatte oder Diskette besitzen. 
Das heißt, alle Daten wie Bilder, Pro¬ 
gramme oder sonstige Aufzeichnung 
aller Art können gelesen, beschrieben 
und gelöscht werden. Welche Auswir¬ 
kungen das auf den Anwender hat, wird 
einem erst richtig klar, wenn man eine 
wahnsinnige Speicherkapazität von 650 
Megabyte hat. Einige Austeller zeigten 
sogar 12-Zoll-CDs mit einer unglaubli¬ 
chen Speichermöglichkeit von 1,2 Gi¬ 
gabyte. 

Weitere Entwicklungen im Telekom¬ 
munikationsbereich waren auch auf der 
Messe zu verzeichnen, insbesondere 
ISDN (Intergrated Service Data Net¬ 
work). Eine eindrucksvolle Demonstra¬ 
tion wurde anhand einer Videokonfe¬ 
renz vorgeführt, wo Teilnehmer in Win¬ 
dows hin- und hergeschoben wurden. 
Weniger geheim ist die Tatsache, daß 
im nächsten Jahr in Hannover wieder 
CeBIT-Time ist, und genauso wenig ge¬ 
heim ist, daß es wieder eine Messe der 
Superlativen und Rekorde wird, im po¬ 
sitiven wie im negativen Sinne, aber 
das gehört einfach dazu. 

(rs/cd/jf) 


scheine nach der Feier des Messeperso¬ 
nals. Nicht weniger als 38 Personer 
dürfen sich demnächst per pedes fort¬ 
bewegen . 

Auf geheime Pfade begab sich die Fir¬ 
ma Epson. Als besondere Attraktion 
hatte man die amerikanische Sängerin 
La Toya Jackson für sich gewinnen kön¬ 
nen. Selbst gegenüber dem Personal di¬ 
verser Hotels wollte man nicht mit der 
Sprache heraus, so daß die Luxusap¬ 
partements auch für diese Berühmtheit 
geschlossen blieben. So mußte die 
Dame in Hamburg den Weg in den ver¬ 
dienten Schlaf finden. Die Reisestrapa¬ 
zen, die sie zusätzlich ertragen mußte, 
werden ihr ob des üppigen Honorars in 
Höhe von zwei Jahresgehältern eines 
Normalsterblichen für fast ein halbes 
Dutzend Liedbeiträge, sicherlich nicht 
negativ aufgestoßen sein. 


ISDN und Gigabyte 
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Im Blickpunkt: DDR 

DMV-Druckwerke auch “drieben“ 
erhältlich 

Seit der Öffnung der Grenzen rücken die Menschen aus den beiden 
deutschen Staaten nicht nur privat immer näher zusammen. Geschäfts¬ 
kontakte werden geknüpft, um die Situation in der DDR konsum- wie infor¬ 
mationsorientiert deutlich zu verbessern. Da auch dem Vertrieb von Zeit¬ 
schriften keine Schranken mehr vorgeschoben werden, ist es nur eine 
logische Konsequenz, daß auch die Druckwerke des DMV-Verlages ab 
sofort in der DDR erhältlich sind. 


Damit dieses auf einer möglichst pro¬ 
fessionellen Basis geschieht, haben 
sich der DMV-Verlag und die VEB 
Mikroelektronik zusammengetan, um 
ein flächendeckendes Angebot der 
Zeitschriften zu garantieren. Über das 
bestehende Vertriebsnetz von Mikro¬ 
elektronik werden ab sofort von der PC 
Amstrad International über die Tool¬ 
box bis zur DOS International die 
DMV-Zeitschriften im Währungsver¬ 
hältnis 1:2 angeboten. 

Wer aber verbirgt sich hinter dem Na¬ 
men VEB Mikroelektronik? 

Die Nummer zwei in der 
Computerbranche 

Eine knappe Autostunde von Eschwege 
entfernt liegt Mühlhausen, eine typi¬ 
sche DDR-Kleinstadt mit etwa 45.000 
Einwohnern. Die übliche Angst um die 
Stoßdämpfer beim Befahren der löchri¬ 
gen Straßen wird durch die Hoffnung 
auf baldige Besserung gelindert, wenn 
man den modernen Komplex des Be¬ 
triebsgeländes der VEB Mikroelektro¬ 
nik sieht. Daß sich trotzdem auch hier, 
bei einem führenden Wirtschaftsunter¬ 
nehmen auf dem Gebiet der Elektro¬ 
nik, noch einiges tun muß, zeigt ein 
Blick hinter die Kulissen des 2.700 
Mitarbeiter umfassenden Betriebes: Es 
fehlt an modernster Technik in Büro¬ 
räumen und Fertigungshallen. Doch 
sind auch hier die ersten Schritte in eine 
vielversprechende Zukunft getan. 

Im Zuge der Wandlungen wird auch 
bei Mikroelektronik einiges gesche¬ 
hen. Bisher stellte man hier Röhren, 
Taschenrechner und 8-Bit-Computer in 
nahezu konkurrenzloser Umgebung 
her. Der Einzug der westlichen Wirt¬ 
schaft führt nun zu einem notwendigen 
Umdenken, will man in diesem harten 
Konkurrenzkampf bestehen. Es spricht 
für die Flexibilität des Betriebes, daß 
man keine Minute daran dachte, alte 
und starre Konzepte beizubehalten. 


sondern sich mit Entschlossenheit den 
Anforderungen der neuen Situation 
stellt. 

Abkehr von alten Produkten 

Mikroelektronik hat erkannt, daß es 
schwierig wird, die alten Produkte in 
einem hochtechnisierten Umfeld an 
den Käufer zu bringen. So bleibt nur 
der Weg in neue Bereiche und Techno¬ 
logien. Mit westlicher Hilfe wird der 
Betrieb sich auf neuen Gebieten aus¬ 
breiten. Regelmeßtechnik heißt dabei 
das Zauberwort. Zu Beginn stehen na¬ 
türlich Vertrieb. Service und Installa¬ 
tion westlicher Technik im Vorder¬ 
grund. Dem folgen eigene Neuent¬ 
wicklungen und Verbesserungen beste¬ 
hender Produkte. 

Mikroelektronik besitzt auf diesem Ge¬ 
biet einige Vorteile, die den Vorhaben 
des Betriebes schnell aus den Startlö¬ 
chern zu helfen vermögen. Ein bereits 


bestehendes Vertriebswesen wird sich 
wie das Vorhandensein moderner Be¬ 
triebsgebäude schnell bezahlt machen. 
Bei all diesem Expansionsdrang ver¬ 
sucht die VEB Mikroelektronik, mög¬ 
lichst alle Arbeitsplätze zu erhalten, 
was sich aufgrund des Einzugs mo¬ 
dernster Technik als nicht einfach er¬ 
weisen wird. Doch auch hier scheinen 
die Schritte den rechten Weg einge¬ 
schlagen zu haben. Der Betrieb splittet 
sich in fünf Bereiche wie Baubetrieb 
oder Sondermaschinenbau auf und 
wird so der Belegschaft auf anderen 
Gebieten Arbeit geben können. 

Aufholen des fehlenden 
Know-how 

Um sich letztlich dem anstehenden 
Konkurrenzkampf erfolgreich stellen 
zu können, ist es dringend notwendig, 
sich das nötige Know-how anzueignen. 
Hier hat Mikroelektronik bereits be¬ 
gonnen, Nachwuchs aus den eigenen 
Reihen durch innerbetriebliche Schu¬ 
lungen auf das notwendige Wisscnsle- 
vel zu bringen. Der Trend der Neue¬ 
rungen spiegelt sich deutlich wider, ist 
man doch bemüht, vorwiegend junge 
Mitarbeiter auszubilden (Zitat des Be¬ 
triebsdirektors Frank Wehner: “Wir 
sind kein Politbüro mit 70 Jahren 
Durchschnittsalter“). 

Ein hoher Berg anstehender Arbeit ist 
also noch zu bewältigen. Die Weichen 
sind gestellt, das Ergebnis wird die Zu¬ 
kunft zeigen. Man darf also gespannt 
sein, wie die Entwicklung “hieben wie 
drieben“ vorangehen wird. 
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Vertriebener 

Fehlerteufel 


Programm—i 


Hinweise zum erfolgreichen 
Abtippen von Programmen 


Da uns immer wieder, vor allem während der Hotline, 
Anrufe erreichen, die über Schwierigkeiten beim Abtip¬ 
pen von Listings klagen, geben wir Ihnen an dieser Stel¬ 
le einige Tips, wie man mögliche Fehlerquellen vermei¬ 
det bzw. erkennt. 



Als bestes Hilfsmittel bei der oft nicht 
leichten Arbeit des Abtippens gilt im¬ 
mer noch unser Checksummerpro¬ 
gramm. Es existiert in drei Versionen, 
für jeden CPC-Typ ein eigenes Kon- 
trollprogramm. Wenn Sie dieses star¬ 
ten, so errechnet der CPC aus jeder Ih¬ 
rer Eingaben eine Kontrollsumme und 
gibt diese in eckigen Klammern in he¬ 
xadezimaler Schreibweise aus, sobald 
Sie Ihre Eingabe durch RETURN be¬ 
stätigen. 

Die in unseren Heften abgedruckten 
Kontrollzahlen hinter jeder Listingzei- 
le sollten nach dem Abtippen der be¬ 
treffenden Zeile mit den Werten über¬ 
einstimmen, die Ihr CPC ausgibt. Ist 
das der Fall, so können Sie sicher sein, 
daß Ihre Eingabe korrekt war. 

Mit Hilfe dieses Verfahrens werden 
sich die beliebtesten Fehler wie die 
Verwechslung von *1* und T oder ’O’ 
und ’0’ auf der Stelle in der Checksum- 
me bemerkbar machen. 

Die Fehlermeldungen 

Wenn sich ein Listing erst einmal im 
Speicher befindet und der RUN-Befehl 
gegeben wurde, kommt es häufig noch 
zu Fehlermeldungen, die auf kleine 
Unachtsamkeiten während des Abtip¬ 
pens zurückzuführen sind (das ist abso¬ 
lut die Regel, denn niemand tippt drei 
bis vier Seiten Listing ein, ohne auch 
nur ein einziges Mal neben die richtige 
Taste zu greifen. So kommt es zu Feh¬ 
lermeldungen, die meist wertvolle Tips 
zum Auffinden der Fehlerquelle geben 
können. 

Der am häufigsten auftretende Fehler 
ist der unbeliebte “Syntax Error“. Er 
hat jedoch den Vorteil, daß er gleich 
die Zeilennummer mit angibt, in der er 
aufgetreten ist. Sie können sicher sein, 


daß sich nach Erscheinen dieser Feh¬ 
lermeldung ein Tippfehler in der be¬ 
treffenden Zeile befindet. Man mag 
das nach mehrmaligem Kontrollieren 
und Nichtfündigwerden oft nicht glau¬ 
ben, es stimmt aber dennoch. Diese 
Fehlermeldung ist hart, aber unum¬ 
gänglich: Wenn der “Syntax Error“ 
auftritt, haben Sie sich vertippt! Da 
bleibt nur ein erneutes Kontrollieren 
der fehlerhaften Zeile. 

Hinterhältiger, aber dennoch verräte¬ 
risch, führt sich die Fehlermeldung 
“Subscript out of ränge“ auf. Sie gibt 
zwar ebenfalls eine Zeile an, in der sich 
der Fehler ereignet hat, man kann aber 
sicher sein, daß genau diese Zeile nicht 
Grund für das Auftreten dieser Fehler¬ 
meldung ist. Sie sagt nichts anderes 
aus, als daß eine Dimensionierung ei¬ 
ner Feldvariablen vergessen oder daß 
nicht ausreichend Platz für ein Array 
reserviert wurde. 

Zuerst sollte nach Auftreten dieses 
“Teufels“ eine genaue Kontrolle aller 
Variablen aus der entsprechenden Zei¬ 
le vorgenommen werden. Schauen Sie 
sich die Werte einmal genau an. Einer 
davon wird eine Feldvariable anspre¬ 
chen wollen, die es nicht gibt. Das soll¬ 
te Sie dazu animieren, ... 

1) ... mögliche Laufanweisungen in 
nächster Umgebung auf ihre Rich¬ 
tigkeit zu überprüfen oder... 

2) ... die Dimensionierungen der Feld¬ 
variablen noch einmal anzusehen. 

Besonders bei langen Datazeilen kann 
es schnell Vorkommen, daß man mitun¬ 
ter ein einziges Komma vergißt und 
dieses in dem Gewirr von Zahlen und 
Zeichen einfach nicht bemerkt. Es 
kommt unweigerlich zu der Fehlermel¬ 
dung “Data exhausted“. Diese Mel¬ 
dung gehört zu den unbeliebtesten Feh¬ 
lerausgaben, muß man sich doch auf 


den langen Weg durch den (hexadezi¬ 
malen “Daten-Dschungel“ machen. 
Nicht nur ungeliebt, sondern geradezu 
heimtückisch verhält es sich mit dem 
“Improper Argument“. In nahezu je¬ 
dem Fall des Auftretens dieser Mel¬ 
dung ist auch bei hundertmaligem 
Durchsehen und Kontrollieren kein 
Fehler im Listing auszumachen. Das 
liegt daran, daß sich die Befehle “Sym¬ 
bol after“ und “Memory" unglückli¬ 
cherweise speicherbereichsmäßig über¬ 
lappen. Das Fatale an diesem Fehler ist 
meist, daß er erst beim zweiten Aufruf 
des Programms auftritt. Es gibt diverse 
Methoden, um diese Fehlerquelle zu 
beheben; die einfachste ist ein Zurück¬ 
setzen des CPCs mit anschließendem 
Neustart des Programms. 

Er will nicht so, wie ich das will... 

Gemeint ist der Drucker. Das führt bei 
unseren abgedruckten Listings dazu, 
daß sich viele fragen, wie man das selt¬ 
same “Dach“ in den Programmen der 
CPC-Tastatur entlockt. An dieser Stel¬ 
le sei noch einmal betont: Bei dem 
"Dach“ handelt es sich um nichts ande¬ 
res als um das Potenzzeichen! 

Wann immer Sie ein “Dach" in einem 
Listing finden, bedienen Sie sich des 
Potenzpfeils, der sich auf der CPC-Ta¬ 
statur direkt links neben der CLR-Ta- 
ste befindet. 

Bei Beachtung dieser goldenen Regeln 
sollte Ihnen ein erfolgreiches Abtippen 
der Listings möglich sein, und wenn 
alle Stricke reißen. Sie sich im Geiste 
schon als Männchen gen Himmel sau¬ 
sen sehen oder lautstark nach Baldrian 
rufen, dann gibt es ja noch die 
DATABOX... 

üf) 
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Putziger Hubschrauber gegen das Böse der 
Welt : Mr. Heli 

Mr. Heli 

Wieder einmal hat ein Automat 
seinen Weg in den CPC gefunden, 
diesmal in Gestalt eines etwas rund¬ 
lichen Hubschraubers mit Watschel¬ 
füßchen. Mr. Heli soll als Mitglied 
einer galaktischen Hubschrauber¬ 
patrouille einen Planeten auf der 
anderen Seite des Universums vor 
der Zerstörung durch die Schüler 
des verrückten Wissenschaftlers 
“The Muddy“ retten. 

Was im ersten Level als freundliche 
Kabbelei beginnt, entwickelt sich 
schnell zu einer Marathonballerei auf 
Leben und Tod. Von allen Seiten stür¬ 
zen sich erst feindliche Helikopter und 
dann in späteren Levels noch ganz an¬ 
dere Getüme auf unseren Watschel¬ 
schrauber. um ihm mittels Feuerbällen 
den Garaus zu machen. Heli verfügt je¬ 
doch zum Glück über unendliche Mu¬ 
nition, so daß diese miesen Kollegen 
kein allzu großes Problem darstellen. 
Kompliziert wird die Angelegenheit je¬ 
doch durch Kanonen, Geschützstellun¬ 
gen, Raumschiffe, fliegende Festungen 
und derlei Kreaturen mehr, die unseren 
Helden davon abhalten möchten, durch 
Sieg über den üblichen Megagegner am 
Ende jeder Ebene ein Level weiter zu 
gelangen. 

In der Kruste des Planeten eingemauert 
sind die dortigen Zahlungsmittel: blaue 
Kristalle. Durch Draufschießen kön¬ 
nen die Steinhaufen zerstört und die 
Kristalle aufgenommen werden. Auch 
die Läden, in denen man Sprit, Rake¬ 
ten, Bomben, Schutzschilde und ande¬ 
re nützliche Dinge kaufen kann, sind 
unter diesen Backsteinen verborgen. 
Viel Zeit bleibt einem allerdings nicht 
für derartige Betrachtungen, da die An¬ 
griffe derweil pausenlos weitergehen. 
Solange Heli sich in der Luft befindet, 
kann er sowohl nach vorne als auch si¬ 
multan nach oben feuern. Watschelt er 


dagegen auf dem Boden herum, wirft 
er statt dessen kleine grüne Bömbchen 
vor sich auf die Erde, mit denen er die 
untenliegenden Steine knacken kann. 
Die Helikopter und Kanonen im ersten 
Level sind relativ leicht mit einem ein¬ 
zigen gut gezielten Schuß außer Ge¬ 
fecht zu setzen, später wird’s dann 
schon etwas schwieriger, und der 
Obermotz am Ende jedes Levels hält 
und teilt dann noch eine ganze Menge 
mehr aus. Kollisionen mit dem Hinter¬ 
grund schaden nicht, Berührungen mit 
dem Gegner dagegen kosten Energie. 
Bei Mr. Heli kann man sich nicht frei 
im Labyrinth bewegen. Es ist deshalb 
zum Beispiel nicht möglich, zu einem 
Laden zurückzukehren, in dem man 
mangels Knete vorher nicht einkaufen 
konnte. Statt dessen wird man sanft, 
aber unnachgiebig auf den Endpunkt 
eines jeden Levels zugesteuert, wobei 
der Bildschirm nach allen Richtungen 
gescrollt wird. 

Eine abspeicherbare Highscore-Liste 
gibt es nicht, was in Anbetracht der 
Tatsache, daß der Schwierigkeitsgrad 
dieses Programms ziemlich weit oben 
angesiedelt werden muß, recht betrüb¬ 
lich ist. Hier hätte man sich wirklich 
von der Automatenvorlage trennen 
sollen. 

Die Grafik dagegen ist gut und detail¬ 
liert programmiert, das Scrolling sau¬ 
ber und schnell. Da sich jedoch oft irr¬ 
sinnig viel Action auf einmal abspielt, 
kann man leicht den Überblick verlie¬ 
ren und völlig unnötigerweise eines der 
vier Leben aushauchen. 

Eine Hubschrauber¬ 
simulation... 

...ist Mr. Heli sicher nicht. Auch Leu¬ 
te, die mit wenig Geduld gesegnet sind, 
sollten sich dieses Programm nicht an¬ 
tun. Joystick-Akrobaten mit gut durch¬ 
trainiertem Feuerfinger dagegen wer¬ 
den an diesem Shoot’em Up ihre helle 
Freude und lange zu tun haben. 

(A. Hink/jf) 
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Ein Highlight auf dem Gebiet der Ae tion spiele 
stellt sieh mit Silk warm vor 

Silkworm 

Die Sache mit der Story vergessen 
wir am besten gleich wieder, denn 
was sich die Autoren da ausgedacht 
haben, ist dermaßen abstrus, daß 
man die Geschichte nur als unge¬ 
liebte Pflichtübung ihrerseits anse- 
hen kann. 

Es genügt zu wissen, daß man diesmal 
die friedliebende Erde vor größen¬ 
wahnsinnig gewordenen Militärs retten 
muß, was am Computer erwiesenerma¬ 
ßen am effektivsten durch Dauerbal¬ 
lern zu bewerkstelligen ist. 

Die Retter der Erde haben die Wahl 
zwischen einem Hubschrauber und ei¬ 
nem Jeep als feuerkräftige Fortbewe¬ 
gungsmittel. Im Zweifelsfall ist der 
wendigere Hubschrauber vorzuziehen, 
da der Jeep zwar wie ein Hase mit 
Schluckauf hoppeln kann und eine um 
180 Grad schwenkbare Kanone besitzt, 
deren Steuerung aber etwas umständ¬ 
lich ist und sich die Effektivität deshalb 
ziemlich vermindert. Dies ist insofern 
wichtig, als man im nächsten Menü¬ 
punkt entscheiden muß, ob man sich al¬ 
leine auf den Weg machen oder den 
Zwei-Spieler-Modus nutzen möchte. 
Als Steuermöglichkeit stehen zwei Joy¬ 
sticks (!) und die Tastatur zur Verfü¬ 
gung. 

Die eng aufeinanderfolgenden An¬ 
griffswellen von feindlichen Hub¬ 
schraubern und Panzern werden unter¬ 
stützt von unzähligen Geschützen, Ra¬ 
ketenwerfern, Raumkugeln und ande¬ 
rem. Die meisten Hubschrauber und 
Raketen sind mit einem einzigen Schuß 
bereits erledigt, alles andere braucht 
schon etwas mehr, um in nichts aufge¬ 
löst zu werden. Einziger Schutz des 
Spielers sind die strahlenden Überreste 
von Minen, die allerdings im Urzu¬ 
stand für den Jeep äußerst gefährlich 
werden können. Da er sie am Boden 
nicht zerstören kann, muß er über sie 
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drüberhüpfen, will er nicht in die Luft 
gesprengt werden. Wird eine solche 
Mine jedoch gesprengt, kann man in 
deren Plasmawolke hineinfliegen oder 
-springen und ist damit gegen leichtere 
Angriffe eine Zeitlang geschützt. 

Zu letzteren zählt ein gepanzerter Vo¬ 
gel, der sich nur mit viel Aufwand zer¬ 
stören läßt. Dieser Vogel setzt sich je¬ 
weils etwa in der Mitte der Level aus 
Einzelteilen langsam zusammen. Ex¬ 
plodiert der Vogel durch konzentrier¬ 
ten Beschuß auf den Hais, oder schafft 
man es, zwei Minen zu zerstören, wäh¬ 
rend sich die Einzelteile noch formie¬ 
ren, so löst er sich in Bonuspunkte auf. 
Diese sollte man tunlichst aufsammeln, 
um in den Besitz von Extras wie 
Schnellfeuerkanonen oder Zusatzge¬ 
schützen zu kommen. Diese erweisen 
sich als besonders nützlich, wenn man 
am Ende des Levels einem der Genera¬ 
le in seiner fliegenden Festung gegen¬ 
übersteht. Hat man ihn innerhalb des 
vorgegebenen Zeitlimits ebenfalls ins 
Jenseits befördert, kann sich der heiß¬ 
gelaufene Feuerfinger etwas abkühlen, 
während die schwer erarbeiteten Punk¬ 
te gutgeschrieben werden. Und schon 
geht’s im nächsten Level weiter. 

Drei Jeeps bzw. Hubschrauber kann 
man verbraten, bevor das endgültige 
“Game Over“ auf dem Bildschirm er¬ 
scheint. 

Alter Hit neu aufbereitet 

Die Umsetzung dieses Automaten¬ 
spiels ist auf dem CPC wirklich gut ge¬ 
lungen. Soundmäßig ist zwar außer 
viel Geräusch nichts los, aber was 
soll’s! Die Grafik jedoch ist wirklich 
gut gemacht. Nicht zu bunt, aber mit 
vielen Details ist der von rechts nach 
links scrollende Bildschirm recht über¬ 
sichtlich gestaltet. Lediglich im Zwei- 
Spieler-Modus rastet die Grafik hin 
und wieder mal aus, wenn einfach zu 
viel Action auf dem Bildschirm ab¬ 
läuft. Ansonsten fangen lediglich nach 
ein paar Stunden die Augen an zu trä¬ 
nen und die Joysticks an zu qualmen, 
weil man sich mal wieder nicht von 
Silkworm losreißen kann. 

(A. Hink/jf) 
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Irreführender Titel aber ein Klassespiel: Rock 
'n ■ Roll 


Rock ’n’ Roll 

Hübsche Extras und ein fetziger 
Sound zeichnen diese Variante von 
Marble Madness aus. Das Thema ist 
altbekannt: Eine Kugel ist sicher 
durch ein Labyrinth zu bewegen, in 
dem es von Hindernissen nur so 
wimmelt. Das Ganze hört sich nicht 
sehr originell an; die Neuauflage 
dieses Themas ist den Programmie¬ 
rern von Rainbow Arts jedoch aus¬ 
gezeichnet gelungen. 

Das Labyrinth besteht aus 32 Leveln. 
Einige Ebenen müssen bis zum bitteren 
Ende durchgespielt werden, die mei¬ 
sten jedoch haben geheime Ausgänge 
oder Abkürzungen, die zwar nicht di¬ 
rekt Punktgewinne bringen, dafür aber 
jede Menge Zeit sparen, Bonuslevel 
öffnen oder einen Soforttransport in 
andere Spiel stufen bewirken. 

Die Aufgabe des Spielers besteht darin, 
mit einer Kugel in möglichst kurzer 
Zeit so viele Diamanten wie möglich 
aufzusammeln, um alsbald die High- 
score-Liste zu zieren. Die Bestzeiten 
werden auf ewig festgehalten. 

Ohne Moos nix los 

Die verschiedenfarbigen Edelsteine ha¬ 
ben unterschiedliche Werte und sind 
natürlich nicht immer so ohne weiteres 
zu erreichen. Das gleiche gilt für die 
bunten Schlüssel, mit denen entspre¬ 
chend gefärbte Türen geöffnet werden 
können. Auch sie sind oft hinter Wän¬ 
den oder verschlossenen Türen verbor¬ 
gen oder liegen fast unerreichbar auf 
der anderen Seite von Abgründen oder 
Eisfeldern. Dann helfen Schalter und 
Teleportfelder sowie die diversen Aus¬ 
rüstungsgegenstände, die man aller¬ 
dings nur gegen Cash bekommt. 

Hat man genug Geld, so kann man Re¬ 
paratursets erstehen, mit denen 
Brücken über Abgründe gebaut werden 
können. Rammkugeln, um bröckelige 


Geländer zu durchbrechen, erweisen 
sich auch als recht nützlich. Des weite¬ 
ren gibt es Bomben, die Geländer auf¬ 
brechen, aber auch Plattformen her¬ 
steilen können, wenn sie an strategisch 
richtigen Orten abgelegt werden (Level 
20 ist anders nicht zu durchqueren). 
Auch Fallschirme stehen zum Verkauf, 
die — rechtzeitig aktiviert — die Kugel 
bei einem Sturz in den Abgrund noch 
mal retten. In diesem Fall wird man vor 
die Wahl gestellt, an der Absturzstelle 
weiterzumachen oder aber das Level 
wieder von vorn zu beginnen. Hatte 
man keinen Fallschirm dabei, ermög¬ 
licht ein allerdings sehr seltener und 
teurer Ring ein Weiterleben nach dem 
Tode. 

Diese und noch weitere Gegenstände 
liegen netterweise immer in genügen¬ 
der Anzahl in dem Level herum, in 
dem man sie benötigt, um sicher den 
Ausgang zu erreichen. Auch gibt es 
Plattformen, bei denen man gute Rat¬ 
schläge kaufen kann. Da sich außer 
Geld jedoch weder Schlüssel noch Aus¬ 
rüstungen in ein anderes Level mitneh¬ 
men lassen, ist Sparsamkeit angesagt. 
Auch an einen Plan des Labyrinths, der 
immer detaillierter wird, je mehr Au¬ 
gen man aufgesammelt hat, haben die 
Programmierer gedacht. Mit den vier 
Leben, die man pro Spiel zur Verfü¬ 
gung hat, ist man eigentlich ganz gut 
bedient. 

Im Gegensatz zu seinen diversen Vor¬ 
gängern lebt Rock’n'Roll vor allem 
auch durch seinen wirklich tollen 
Sound, der dem Titel alle Ehre macht. 
Zehn verschiedene Stücke kringeln 
sich ins Ohr hinein. Bis auf wenige 
Ausrutscher gehören sie zum Besten, 
was auf dem CPC soundmäßig je gebo¬ 
ten wurde. Nur hin und wieder macht 
sich die Abhängigkeit von Sound und 
Bewegung doch etwas störend bemerk¬ 
bar. Dafür ist den Programmierern 
aber endlich mal wieder ein sauberes, 
ruckeifreies Scrolling und eine präzise 
Steuerung gelungen, wenn auch die 
Farbzusammenstellungen manchmal 
Zahnschmerzen verursacht. 

(A. Hink/jf) 
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Bei dem Programm handelt es sich um 
eine Compilation von drei Knobelspielen 
mit unterschiedlichen Zielen. Man 
braucht strategisches Denken und gutes 
Augenmaß , um die drei Spiele 
erfolgreich zu meistern. 




Eine Bildschirmknobelei 
mit Zeitdruck 



























Shift hat eine ziemlich ausgefallene 
Entstehungsgeschichte, denn ur¬ 
sprünglich ist diese Compilation aus 
der einfachen Idee entstanden, ein 
Spiel mit einem möglichst perfekten 
Schatteneffekt zu konstruieren. Was 
alles aus kleinen Experimenten entste¬ 
hen kann, ist bemerkenswert, oder? 

Shift 


Auf dem Bildschirm entstehen zwei 
quadratische Flächen zu je 8x8 Fel¬ 
dern. Diese Felder sind völlig ver¬ 
schieden. und Ziel des Spiels ist es nun, 
beide Felder deckungsgleich zu be¬ 
kommen. Und jetzt kommen die Haken 
an der Sache: 

1. Mit dem Cursor und Druck auf den 
Feuerknopf läßt sich nur eine ganze 
Reihe verschieben. 

2. Die erste waagerechte und die erste 
senkrechte Zeile können nicht ver¬ 
schoben werden. 

3. Unaufhaltsam und ohne Gnade zählt 
der Zeitzähler zurück. Um nun das 
Spiel ein bißchen zu entschärfen, 
kann man jederzeit die beiden Spiel¬ 
felder vergleichen lassen und so 
schon eventuell sich gleichende Fel¬ 


der entfernen. Die Umschaltung er¬ 
folgt mit der Leertaste. 

Find 

In der linken Bildschirmhälfte entsteht 
eine Fläche von 8x8 Feldern. Aus die¬ 
sem Spielfeld sucht anschließend der 
Computer eine 3 x3-Matrix heraus und 
zeigt diese auf der linken Bildschirm¬ 
hälfte an. Und jetzt heißt es, möglichst 
schnell die Kombination im großen 
Feld wiederzufinden und anzuklicken. 

Xor 


In der linken Bildhälfte können Sie mit¬ 
verfolgen. wie sich das Feld ent¬ 
wickelt. Das Ziel ist es, das Spielfeld 
wieder so hinzubekommen, wie es am 
Anfang war, also alle Spielsteine vom 
Bildschirm zu entfernen. Man bewegt 
den Cursor auf ein beliebiges Feld in¬ 
nerhalb der Matrix und drückt den Feu¬ 
erknopf. Es wird nun eine 3 X3-Matrix 
rund um den Cursor und das Feld unter 
dem Cursor invertiert. Wenn also ein 
Stein zu sehen ist, so löst er sich auf 
und umgekehrt, wenn ein leeres Feld 


zu sehen war, so erscheint dort ein 
Stein. 

Punkte bekommt man für jeden Stein, 
der vom Spielfeld verschwindet. Wur¬ 
de ein Level geschafft, dann gibt es zu¬ 
sätzlich noch einen Zeitbonus. 

Das erste Listing (Shift.Prg) ist das 
Hauptprogramm. 

Das zweite Listing (Shift.Ge2) ist ein 
Datalader, der bei Kassettenbenutzern 
erst einmal auf einer separaten Kassette 
abgespeichert werden sollte, bevor er 
mit RUN gestartet wird. 

Das dritte Listing (Shift.Gen) erzeugt 
die Grafiken, die im Spiel verwendet 
werden. Am besten hinter Listing 2. 
Kassette 2, abspeichern. 

Folgende Listings werden vom Haupt¬ 
programm nachgeladen: 

SHIFT.BIN 
SHIFT. GRA 

Das Spiel ermöglicht es, einen High- 
score abzuspeichern. Da am Anfang 
keine Highscore-Tabelle existiert, muß 
vor dem Laden derselben eine vom 
Programm angefertigt werden. 
Drücken Sie im Hauptmenü die Taste 
“6“. Bei der Kassette muß dies der letz¬ 
te Programmteil sein. 

(Andreas Lange/cd) 


für 464-664-6128 

I 




1000 ' 

1010 ' SHIFT.PRG 
1020 ' by A.Lange 
1030 1 

1040 MODE 0:BORDER 0:FOR i=0 TO 15:READ a: 
-INK i , a : NEXT 

1050 DATA 0,0,1,0,2,1,14,2,26,26,13,13,25. 

25,15, 15 

1060 DEFINT a-z 

1070 MEMORY &8FFF 

1060 CALL &BB48 

1090 IF PEEK(0)= &C9 THEN 1150 

1100 POKE 0,&C9 

1110 LOAD"shift.bin”,&AOOO: ' RSX-Erwelter 

ung 

1120 LOAD"shift.gra",&9000: ' Sprites 

1130 CALL &A000 ' RSX einbinden 

1140 ENV 1,15,-1,2 
1150 DIM hsc(3,6) ,hsc$(3,6) 

1160 FOR i =1 TO 3:FOR o=l TO 5:hsc{ i ,o ) = (6 
-o)*50:hsc$(1 ,o) = "AOLsoft":NEXT o,i 
1170 ' 

1180 ' Menue 
1190 1 

1200 MODE 0:!FILL 

1210 RESTORE 1260:F0R i=0 TO 4:READ a$ 

1220 scr=&C028-LEN(a$)*2 

1230 scr=scr+150*1:a$=a$+CHR$(0) 

1240 !PRINT,scr,@a$ 

1250 NEXT 

1260 DATA "SHIFT"," "."written by ADL-SOFT 
","from Ju1y","ti11 August ’89" 

1270 WINDOW 4,17,8,17:CLS:RESTORE 1310 
1280 FOR y=8 TO 15:READ a$ 

1290 a$=a$+CHR$(0):iPRINT,&C00E+y*80,@a$ 
1300 NEXT 

1310 DATA "Menue:"," ","(1) SHIFT", "(2) FI 
ND","(3) XOR","(4) HI-SCORES","(5) LOAD HI 
","(6) SAVE HI" 

1320 a$ = INKEY$:IF a$="" THEN 1320 

1330 a=VAL(a$):IF a<l OR a>6 THEN SOUND 1, 

1000,5,15,0,0,15:GOTO 1320 

Listing SHIFT 


[117] 

[ 181] 
[906] 
[117] 
[3327] 

[2139] 

[ 553 ] 
[207] 

[ 383] 
[1177] 
[ 76] 
[2806] 

[ 1953 ] 
[ 1602 ] 
[ 627] 

[1166] 
[4180] 

[117] 

[1057] 

[117] 

[ 1012 ] 

[2246] 

[1470] 

[ 1346] 

[1670] 

[350] 

[5174] 

[1753] 

[1818] 

[2436] 

[350] 

[6036] 


[ 1480] 
[2617] 


1340 ON a GOTO 2040,2040,2040,1360,1520,16 [2082] 
40 

1350 1 [117] 

1360 ' Hi-Scoretabel1e [517] 

1370 1 [117] 

1380 FOR i=1 TO 3 [435] 

1390 CLS [91] 

1400 IF 1=1 THEN a$="SHIFT" [1729] 

1410 IF 1=2 THEN a$="FIND" [990] 

1420 IF 1=3 THEN a$="XOR" [1052] 

1430 a$=a$+CHR$(0) [656] 

1440 !PRINT,&C28E,@a$ [1047] 

1450 a$="TOP FI VE "+ CHR$(0 ) : |PRINT,&C2DE,@a [ 2292] 

$ 

1460 FOR 0=1 TO 5 [897] 

1470 a$ = “ " [388] 

1480 a$=STRING$(6-LEN(STR$(hsc<1,0))),48)+ [5402] 
MID$(STR$(hsc(1 ,o) ) ,2):a$ = a$+" " + hsc$(i ,o) 

+CHR$(0) 

1490 !PRINT,&C32E+O*80,©a$ [1698] 

1500 NEXT O:FOR b=l TO 100:CALL &BD19:NEXT [3064] 
b,i:GOTO 1270 

1510 ' [117] 

1520 ' Hl-Scores laden [257] 

1530 1 [117] 

1540 CLS [91] 

1550 a$="Press a key.." + CHR$(0)PRINT,&C2 [3800] 
8E.0a$ 

1560 a$="to load"+CHR$(0):!PRINT,&C2DE,@a$ [2169] 
1570 CALL &BB06 [393] 

1580 OPENIN"!shlft.hsc" [1546] 

1590 FOR i=1 TO 3:FOR 0=1 TO 5 [713] 

1600 INPUT #9,hsc(1,o) [1647] 

1610 INPUT #9,hsc$(i,o) [1379] 

1620 NEXT O,1:CLOSEIN:GOTO 1270 [1848] 

1630 1 [117] 

1640 ' Hi-Scores speichern [768] 

1650 ' [117] 

1660 CLS [91] 

1670 a$ = "Press a key.." + CHR$(0):!PRINT,&C2 [3800] 
8 E,@a$ 

1680 a$="to save"+CHR$(0):!PRINT.&C2DE,@a$ [1327] 
1690 CALL &B806 [393] 

1700 OPENOUT"!shlft.hsc" [2069] 

1710 FOR 1=1 TO 3:FOR 0=1 TO 5 [713] 

1720 PRINT #9,hsc(1,o ) [ 852 ] 

1730 PRINT #9,hsc$(1,o) [884] 


Listing SHIFT 
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1740 NEXT o.l:CLOSEOUT:GOTO 1270 [2067] 

1750 * [117] 

1760 ' Einträgen [1430] 

1770 ' [117] 

1780 h=0:FOR 0=5 TO 1 STEP -1 [1307] 

1790 IF SCO >hSC(gm,O) THEN h=0 [1983] 

1800 NEXT [350] 

1810 IF h = 0 THEN 1270 [1182] 

1820 FOR 0=5 TO h STEP -1:hsc(gm,o +1)= hsc( [3303] 

gm,o):hsc$(gm,o+l)=hsc$(gm,o):NEXT 
1830 CLS [91] 


1840 a$="Please enter"+ CHR$(0): !PRINT,&C29 [2700] 

0 , @a$ 

1850 a$=”your name f o r''+CHR$ ( 0 ) : ', PR I NT , 8.C2 [4638] 
DE,@a$ 

1860 a$=“ the TOP FI VE "+CHR$ ( 0 ) : ! PRI NT , 8.C33 [ 2265] 
0 . @a$ 

1870 a$ = " [DEL] [ENT]"+ CHR$(0): !PRINT,&C4B [ 3559 ] 
E , @a$ 


1880 a$="."+CHR$(0)PRINT,8.C3DA,@a$ [2587] 

1890 n $ = *' " [498] 

1900 ' Namen eingeben [596] 

1910 a$=INKEYS:IF a$=“" THEN 1910 [1490] 

1920 a=ASC(a$) [1036] 

1930 IF a=13 THEN 2020' ENTER [2172] 

1940 IF a=127 THEN 1980’ DEL [1104] 

1950 IF a < 32 THEN 1910 [ 1370] 

1960 IF LEN(n$) = 7 THEN 1910 [ 1290] 

1970 n$=n$ + a$:c$ = n$ + CHR$(0): ; PRINT , 8.C3DA , @ [2914] 

c$:GOTO 1910 

1980 1=LEN(n$}:IF i =0 OR i=l THEN c$=".... [4394] 

.. ."+CHR$(0): I PRINT,8.C3DA, @c$:n$="":GOTO 1 

910 

1990 n$=LEFT$(n$,LEN(n$)-l) [851] 

2000 c$=n$+".”+CHR$(0) [533] 

2010 !PRINT,&C3DA,@C$:GOTO 1910 [1670] 

2020 hsc(gm,h)=sco:hsc$(gm,h)=n$:GOTO 1270 [2363] 

2030 ' [117] 

2040 1 Spiel [141] 

2050 ’ [117] 

2060 sco=0:1eve1=0 [1045] 

2070 gm=a [70] 

2080 IF a=1 THEN a$="SHIFT" ELSE IF a=2 TH [3218] 
EN a$="FIND" ELSE a$="XOR" 

2090 a$=a$+CHR$(0) [656] 

2100 WINDOW #1, 1,20,1 , 5 :CLS #1:',FILL [ 1490] 

2110 POKE &A1CA.16 [644] 

2120 I PRINT,8.C0 2 8-(LEN(a$)-l)*2,@a$ [1321] 

2130 POKE &A1CA.8 [554] 

2140 a$="SCORE"+CHR$(0):! PRINT, 8.C000,@a$ [1700] 

2150 a$="HI " + a$ :! PRINT , 8.C034 , @a$ [1371] 

2160 a$="00000"+CHR$(0):!PRINT,8.C05 0,@a$ [2015] 

2170 a$=STRING$(6-LEN(STR$(hsc(gm,1))),48) [5240] 

+MID$(STR$(hsc(gm,1)),2)+CHR$(0) 

2180 !PRINT,8.C08C,@a$ [844] 

2190 a$="TIME"+CHR$(0): I PRINT,&COFO,@a$ [2487] 

2200 ' [117] 

2210 ' Init fuer neues Level [1386] 

2220 ‘ [117] 

2230 1eve1=1eve1+1 [1036] 

2240 ff=REMAIN(0):f1ag=0 [2274] 

2250 RANDOMI 2 E TIME [ 1 777 ] 


2260 |FILL:MOVE 0,328:DRAWR 128,0,10 : DRAWR [3038] 
512,0,8 

2270 MOVE 0,326:DRAWR 128,0,10:DRAWR 512,0 [2039] 


> 8 

2280 zeit=640 [785] 

2290 FOR i=0 TO 127:POKE 8.8000+i , 0 : NEXT ' F [2771] 
elder loeschen 

2300 IF gm=3 THEN 2420 [527] 

2310 ‘ [117] 

2320 ' Feld 1 mit Steinen fuellen [1383] 

2330 ’ [117] 

2340 FOR 1=0 TO 30 [517] 

2350 x=INT(RND*62) : IF PE E K ( 8.800 2 + x )<> 0 THE [ 2645 ] 
N 2350 

2360 POKE 8.8002 + x , 1 : NEXT [375] 


2370 IF gm= 1 THEN POKE 8.8000,2 : POKE 8.8040, [5718] 

2 : FOR 1=2 TO 63:P0KE 8,8040+i , PEEK ( 8.8000+i ) 

XOR 1: NEXT : POKE 8.8001,0' Bei Shift 2.Feld 
1nstal1 . 


2380 GOTO 2450 [313] 

2390 ’ [117] 

2400 1 Istall fuer XOR [1288] 

2410 ' [117] 

2420 FOR 1=0 TO 31:!FELD1 [1137] 

2430 x=INT(RND*6)+1:y=INT(RND*6)+l [2723] 

2440 FOR o=x-l TO x+1:FOR 02=y-l TO y+l:PO [3265] 

KE 8.8000 + 0 + 02*8, PE EK ( 8.8000 + O + O2*8 ) XOR 1:N 
EXT o2 , o , i 

2450 fl=0 [93] 

2460 |FELD1 [956] 

Listmg SHIFT 


2470 |XOR:IF gm=l THEN POKE 8.8000,2 : POKE 8. 
8040,2 

2480 f1=64-PEEK(&8080)' Anzahl der Steine 
auf dem Spielfeld 
2490 ’ 

2500 ' Fuer FIND zufaelliges Feld suchen 
2510 ' 

2520 IF gm=2 THEN tx = INT(RND*6) + 1:ty = I NT(R 
ND* 6) + 1:FOR o = tx-l TO tx+l:FOR o2 = ty-l TO 
ty+1: ! PUTSPR , 8.C2 5C+( o-t x+1) *4+( o2-ty+1 )*16 
0,8.9040 + PEEK ( 8.8000 + o + o2*8 ) *288:NEXT o2,o: ! 
PUTSPR , 8.C300,8.95EO 
2530 IF gmOl THEN 2580 
2540 !FELD2 

2550 ' 

2560 ' Zeitzaehler Install 8. Schleife 
2570 ' 

2580 IF gm=l THEN e=50-1evel*2 

2590 IF gm= 2 THEN e=2S-level*2 

2600 IF gm=3 THEN e=50-level*3 

2610 IF e < 3 THEN EVERY 3,0 GOSUB 2640 ELSE 

EVERY e,0 GOSUB 2640 
2620 x=0:y=0:GOTO 2710 
2630 ' Zeitzaehler 

2640 ze1t=zeit-4:MOVE zeit,328:DRAW 640,32 
8,0:MOVE zeit,326:DRAW 640,326 
2650 IF zeit = 0 THEN f1ag=1:ff = REMAIN(0) EL 
SE f1ag=0 

2660 IF zeit<128 THEN SOUND 129,80,30,15,1 
2670 RETURN 
2680 ' 

2690 ' Cursorsteuerung 
2700 ' 

2 710 al t = 8.C2 34 + x*4+y* 160 :alt2 = 8.9 04 0 + PEEK(8. 
8000 + x + y*8)*288: ! PUTSPR , al t, 8.9 5EO : CALL 8.BO 
19 : CALL 8.BD19 : CALL 8.BD19 
2720 a=FRE("") 

2730 a=JOY(0):IF a=0 AND INKEY(47)=-1 AND 
INKEY(66)=-1 AND flag=0 THEN 2730 
2740 !PUTSPR,alt,alt2 

2750 IF a AND 16 THEN GOSUB 2870 ' Feuer 

2760 IF a AND 1 THEN y=(y+7) MOD 8 Hoch 

2770 IF a AND 2 THEN y=(y+l) MOD 8' Runter 

2780 IF a AND 4 THEN x=(x+7) MOD 8 Links 

2790 IF a AND 8 THEN x=(x+l) MOD 8' Rechts 

2800 IF INKEY(66)< >-l THEN flag=l 

2810 IF INKEY(47)< >-l AND gm=1 THEN GOSUB 

3140' Zeile/Spalte verschieben 

2820 IF flag THEN 3200' Zeit abgelaufen 

2830 GOTO 2710 

2840 ' 

2850 ' Feuerauswert der einzelnen Spiele 
2860 ' 

2870 ON gm GOTO 2890,2950,2990 

2880 ' SHIFT Zeile verschieben 

2890 IF a ANO 1 THEN IF x<>0 THEN [ULINE,a 

1 t-y* 1 60,8.8000 + x 

2900 IF a AND 2 THEN IF x<>0 THEN I DL I NE,a 
1 t-y* 1 60,8.8038 + x 

2910 IF a AND 4 THEN IF yOO THEN ! LLINE, a 
1 t-x*4,8.8000+y*8 

2920 IF a AND 8 THEN IF y<>0 THEN IRLINE.a 
1 t —x*4,8.8007 + y*8 
2930 RETURN 

2940 ' FIND Feststellen ob gesuchtes Feld 
getroffen 

2950 IF x = tx AND y = ty THEN sco = sco+1eve1 *z 
ei t/25:GOSUB 3110:G0T0 2210 
2960 zeit=zeit-64:IF zeit<0 THEN zeit=4 
2970 RETURN 

2980 ' XOR Feld invertieren 

2990 IF x<l OR x > 6 OR y<l OR y>6 THEN RETU 
RN 

3000 fe = f1 :FOR 0 = x-l TO x+l:FOR o2 = y-l TO 
y + 1 

3010 ad = 8.8000 + O + o2*8: b=PEEK(ad) 

3020 IF b=l THEN POKE ad,0:fl=fl-l 

3030 IF b=0 THEN POKE ad,l:fl=fl+l 

3040 ! PUTSPR , &C2 34 + 0 * 4 + 02*1 60,8.9040 +PE EK ( a 

d ) *288 

3050 NEXT 02,0 

3060 sco=sco+(fe-f1)*5:IF sco<0 THEN sco=0 

3070 IF f1=0 THEN sco=sco +1eve1 *zeit/50:GO 

SUB 3110:GOTO 2210 

3080 GOSUB 3110 

3090 RETURN 

3100 ‘ Scoreanzeige 

3110 sco=INT(sco):n$=STRING$(6-LEN(STR$(sc 
O)),48)+MID$(STR$(sco),2)+CHR$(0) 

3120 | PRINT , 8.C050 , @n$ : RETURN 
3130 ' SHIFT - Druck auf SPACE 

Llsting SHIFT 


[2724] 

[3064] 

[117] 

[910] 

[117] 

[9552] 


[ 537 ] 
[959 ] 
[117] 
[2503] 
[117] 

[ 1098 ] 
[ 948] 
[849] 
[3625] 

[1567] 
[ 856] 
[6951] 

[ 2592 ] 

[ 1100 ] 
[ 555 ] 
[117] 
[828] 
[117] 

[5676] 


[ 1439 ] 
[3785] 

[1171] 
[ 1087 ] 
[831] 

[ 655 ] 

[ 753] 

[ 1926] 
[846] 

[2424] 

[ 1638] 

[ 397] 

[117] 

[2250] 

[117] 

[813] 

[1986] 
[1234] 

[2626] 

[1251] 

[1887] 

[ 555] 
[3054] 

[5029 ] 

[2857] 
[ 555 ] 
[1707] 
[1104] 

[2970] 

[ 1110 ] 

[1649] 

[2946] 

[2260] 

[ 387 ] 
[2129] 
[3136] 

[971] 

[ 555 ] 

[ 975 ] 
[5411] 

[1453] 

[506] 




20 PC 5’90 










LocoFont Set 1 
Loco Font Set 2 
LocoScript Übun 


kompL nur 


material ? Kostenlose Gesamt- 


Postgiro i 


. Arnor: - 

i Prowort.219,- 

;] Protext 3".94,- 

Protext Eprom.124,- 

MAXAM3".94.- 

MAXAM Eprom .124,- 

MAXAM II.239,- 

Prospell engl.50,- 

Prospell dtsch.70,- 

! Van der Zalm: - 

! ADRESCOMP.58,- 

1 DATENREM.68,- 

Fakturem.78,- 

FIBUPLAN.148,- 

LAGDAT.68,- 

TEXTKING.78,- 

COMFORM .48,- 

ETATGRAF.58,- 

FIBUCOMP .98,- 

KALKUREM .78,- 

PROFIREM .136,- 

I VOKABI.58.- 

STAR DIVISION: - 

Star-Writer 1.98,- 

Datei-Star.98,- 

Statistic-Star.98,- 

FibuStar Plus CPC ..298,- 

CPC-KnüUer: - 

ROMBOX CPC.118,- 

j Videodigitizer CPC .348,- 

AMX-Maus CPC.278,- 

StopPress CPC.198,- 

Sl.Pr.+AMX-M.348,- 

St.Pr. - Utilities.129,- 


Easl-Arl 

+ Trackerball.298,- 

+ StopPress ..448,- 

Mlnl Oftice II 3".98,- 

MAX .129,- 

Dart-Scanner •_249,- 

BTX-Modul.398,- 

Turbo Pascal 3.0.225,- 

Turbo Toolbox. 108 ,- 

Turbo Lader.98,- 

Vokabeltrainer 3".49,- 

Verbentrainer 3".59,- 

Schaltpläne CPC: - 

CPC 464/664 (e.... 29,80 

CPC 6128.29,80 

CTM 644, 640.je 19,80 

GT 64/65 .je 19,80 

Kopierprogramme: — 

Mastercopy.65,- 

Supercopy.65,- 

dk tronics CPC: - 

für 464/664: 

Speech Synth. (Rom ... 148,- 
Speech Synth. (Kas.) ...98,- 

Lightpen (Kas.).68,- 

256 k Erweiterung.298,- 

256 k Silicon Disk.298,- 

Uhrenmodul.128,- 

für 6128 : 

256 k Erweiterung •_298,- 

256 k Silicon Disk*_298,- 

64 k Silicon Disk*_128,- 

Uhrenmodul*_119,- 

Adaptar tut CPC 6128 (+) ..39,- 


CPC 


Adventures: - 

Diamant von Rabentels (g) 
Drachenland (t) 

Reise durch die Zeit (t) 
Sherlock Holmes (g) 

Auftrag In der Bronx (g) 

Insel der Smaragde (t) 

Das Pharaonengrab (t) 

(t - text; g - Grafik; alle in 
deutsch) 

je 3" / Kas. ...49,-/ 39,- 
Kassetten-Software: 

Tascopy Kas..„...39,90; 

Tasword Kas.69,90 j 

Tasprint Kas.39,90 i 

Taifun Basic Comp.48,- j 

Mini Office II Kas.49,- 

Vokabeltrainer Kas.39,- 

Verbentrainer Kas.49,- 

Ka yeenen-Spie l e; 

Futureworld...20,- 

Stud Poker ..20,- 

Manlc Miner...20,- 

Poker/17+4.20.- 

Jargon.20,- 

Thorr 1+2+3.„je 20.- j 

SpieleSonderpreise: 

K/D.20,-/30.- j; 

Liste anfordern II 


Es gibt uns noch ... 

Wir haben den Alleinvertrieb für dBase II, Multiplan, 
Wordstar 3.0 und Microsoft Basic (CPC+Joyce) 
von Markt & Technik übernommen I 
Sollten Sie also Interesse an einer durch und durch 
professionellen Software für Ihren CPC oder Joyce 
haben, dann zögern Sie keine Sekunde und wenden 
sich einfach an uns. 


Multiplan 




1 -1..- 

3" 

L_ _j 3 i__ 

- „^^oltware 
für 

dBase R 

Muftiplan 

Wordstar 

3.0 

Microsoft 

Basic 

Paket - 

CPC 6128(3 M ) 

DM 199,- 

DM 199,- 

DM 148,- 

DM 148,- 

DM 446,- 

CPC 464 (3' ) 

DM 148,- 

DM 148,- 

DM 99,- 

— 

DM 299,- 

Joyce PCW 

DM 199,- 

DM 199,- 

DM 99,- 

DM 148,- 

DM 446,- 


[ 1 Paket beinhaltet dBase II + Wordstar 3.0 « MJopian • Handbüch« (Ringbuch) auch einrem erham. 39.- 


Sonderpreise!! 

Sorcery Plus 3" (Super cpc-spiei).statt nur 30,-- 

Terminal-Star 3" (Telekommunikation).statt 7^0 nur 29,80 

HiSoft PASCAL 4T (Pascalprogrammierung); 

Kassette.statt i^,- n u r 39,80 

3"-Diskette.statt yri,- nur 59,80 

HiSoft DEVPAC (Assembler/Disassembler): 

Kassette.statt \/S,- nur 39,80 

3“-Diskette.statt i^T.- nur 59,80 

SuperCalC2 3" (Tabellenkalkulation).statt ]p6.~ nur 59,80 

Easy-Topcalc (Kas.).statt 7 ^ nur 29,80 

Basic Lehrbuch 2 (Kas.).statt 79/0 nur 29,80 

ELU'MJI.I M_ 

Cyrus 3D Che ss (Schachspiel).statt?*- nur 49,80 

CPC 6128 + GT65 / CTM 644 . 799,- /1.099,- 

SchneiderFDI-3”-LW. (fürCPC 6 i 28 ) .nur 248,-- 

Schneider DD1-3"-LW. (fürCPC464) .nur 448,~ 


I "’! (Amor: - 

j PROWORT...219,- 


PROSPELL (dt.) . 

.79,- 

MAXAM II. 


VAN DER ZALM: - 

ADRESCOMP. 

.58, 

COMFORM . 

.48,- 

DATENREM . 

.68,- 

ETATGRAF. 

.58, 

FIBUPLAN . 

.148,- 

FIBUCOMP. 

.98. 

LAGDAT. 


PROFIREM. 

.136,- 

VOKABI. 


FAKTUREM. 

.78,- 

KALKUREM . 

.78,- 

Locomotive: - 


LocoScript 2. 

.148,- 





LocoSpell 2. 

.168,- 


LocoScript + Spell.248,- 

LocoFile... 168 ,- 


STAR DIVISION: - 

Statistik-Star.98,- 

Starmall.99,- 

Datei-Star.99,- 

Mailing-System.189,- 

Star-Base.198,- 

Business-Star.298,- 

Fibu-Star Plus.298,- 


Diskettenlauf werke: 


AMSTRAD FDt 3"...248,- 
Anschlußkabel FD1 ...48,- 

3,5“-Laufwerk.298,- 

5,25'-Laufwerk.398,- 


AMSTRAD DD1 .448,- 


AMSTRAD FD4 3“... 499,— 

3.5“-Laulwerk.298,- 

5.25"-Lautwerk.398,- 

Abdeckhauben: - 

Monitore CPC.je 34,80 

DMP-Drucker.je 2430 

Floppy's.je 19,80 

3"-Disketten (10 Stk): 

MaxellCF2 ID .89,- 

CF2 DD...148,- 

Diskettenboxen: - 

3740 .29,80 

3,57100 .29,80 

5,257100 .29,80 

Serielle Scnittstellen: 

für CPC 6128 . 168 ,- 

für CPC 464 .148,- 

Schaltpläne PC: - 

...PC 1512.29,80 

...PC 1640 .29,80 

...Monitor PC.19,80 

Speichererweiterung: 

für Joyce.148,- 

lür CPC ... «Iahe dk lronlk» 
für PC.a.A. 


Zubehör AMSTRAD - 
CPC: - 

MP2 (Anschi TV).148,- 

MP3 (TV-Modulator).199,- 

CT1 (Radio-Uhr) .39,— 

Datenrekorder + Kab. 98,- 
Druckerkabel 6128 ....38,- 

Druckerkabel 464 . 38,- 

Moniton/erlängerung: 

...CPC 6128.29,50 

...CPC 464.24,50 

Bildschirmfilter.59,- 

Handbücher deutsch 


Konlenbiafter Fibu ... 

...35,90 



Joyce-Knüller: - 


AMX-Maus Joyce • __ 

.298,- 

StopPress Joyce. 

.198,- 

... + AMX Maus. 

.398,- 

Desktop Publisher.... 

.118,- 

... + AMX-Maus. 

348,- 

MasterScan •. 

298,- 



MaslerScan/-Paint... 

338,- 

Mini Office Profess... 

.98,- 

...Dtsch. Zeichensalz 

.. 29,80 

| BTX-Modul Joyce ab 595,- 

Papierführung Joyce 

..29,90 

Schaltplan Joyce. 

..29,80 

RS 232 Joyce. 

198,- 



Tasword 8000. 

148,- 

Turbo Pascal 3.0. 

225,- 

Turbo Toolbox. 

148,- 

Pascal M+T. 

198,- 

Prompt (Datei). 

..69,- 


.39,- 

Vokabeltrainer. 

.59,- 

Verbentrainer. 

.49,- 



Turbo Adress. 

.98,- 





MICA CAD.98.- 1 

Comac Litbox 4,0. 

148,- 

Comac Kasse Plus ... 

168,- 

Comac-Banktransfer. 

.59,50 

VerelnsverwaJt. 

198,- 


Joyce 


Schreiblehrgang.89,- i 

PSE2.129,- ! 

Fleetstreet Edit.148,- |' 

FISKUS 88/89.139,- 

WS-Tuner.49,80 i 


Supercopy.85,- 









Cyrus 3D Schach. 

Football Foriunes. 

Jewels of Darkness... 

.49,80 

...69,- 

...89,- 

Silicon Dreams. 

Steve Davis Snooker 

...89,- 

...69,- 

The Guild ot Thieves. 
Time and Magic. 

...89,- 

...89.- 

dk ‘tronics Joyce: 
Contr.+Sound* 
Echtzeituhrenmodul- 
256 k Erweiterung 
Adapter (•) 

129,- 

129,- 

148,- 

39,- 



Genaue Produkt- 
Beschreibungen 

4,- 


Zubehör 


... 3000 PD (5.25"). je 8,- 

...optional (3.5").je 12,— 

ED-Listen; 

...für PC.9,80 

...für Atari ST.9,80 

...für CPC, Joyce koalanlo« 
Drucker: - 


Alle Programrne in deutsch, mit ausführlicher Dokumentation i 
Durch Aufkauf aus Konkursmasse extrem billig I 

Paketpreis (alle 7 Prgr. in 5.25" / +3.5") 48,- / 98,- 

Einzelprogramm (5.25" / 3.5“) 12,-/18,- 


für CPC: 

...Mini Oftice II.29,80 

...AMX-Maus CPC ...29,80 
...StopPress CPC.... 19,80 

...dktronics Erw.19,80 

...Protext.19,80 

DMP2160 (9-N.).448,- 

Star LC10 (9-N.).498,- 

AMSTRAD LQ3500.. 698,— 
Star LC24-10 (24-N.) 798,- 
Farbbänder: - 

...MAXAM.19,80 


für. Joyce; 

...AMX-Maus Joyce . 19,80 

...Mini Otfice Prof.29,80 

...StopPress Joyce ..19,80 
...Desktop Publisher 19,80 

DMP-Drucker.19,80 

LQ3500-Drucker.29,80 

Joyce-Drucker.24,80 

Joyce (Carbon).39,80 

PCW9512-Dr.19,80 


Radikal!! 


Joyce 8256 Inkl. 

Matrixdruckar. Locoscript/CPM 
plus u. Handbücher (durch Aul¬ 
kaut aus Konkursware extr, billig) 


695,- 


Selbstverständlich führen wir j 
auch ein riesen Lager an [ 
PC-Hardware + Zubehör: 
AMSTRAD, Schneider, 
Unitron. Sanyo. Atari PC ... 
Fordern Sie unsere PC- 
Überseht an. Bitte schnftl. I 


zuock an Aosender a-wo Karl-Heinz Weeeke* Po’&öamei R^-.g i0* 

Interessiert an weiterem Info- 7i508acknang* Kreissparkasse 


Joysticks CPC, 

Joyce mit Joystickkonlr. 

Competition pro.39,80 

Quickshot 1.14,80 

Quickshot II.19,80 

Quickshot IV.29,80 

Public Domain: - 

für CPC. Jovce: 

...1000 PD (T) je 20,- 

...PD dtsch. Hb.je 30,- 


Erweiterungsbox für 
Schneider EuroPC: 

Der Erweiterung Ihres Euro¬ 
PC "s sind jetzt keine 
Grenzen mehr gesetzt: 

7 treie Steckplatze. Platz für 
3 Laufwerke bzw. Fest¬ 
platten. 150 Watt-Nelzteil... 
(Info anfordern) ... 698,- 


II angebotslisten anfordern ! 

!| O für CPC 6128 , 664,464 
O für Joyce 

O für PC (IBM-Kompatible) 

Mein Computersystem: _ 

Iji; Vorname. Nam e: 

:j;i Straße, Hausn ummer: 

PLZ, Ort: 

Telefon-Nummer: _ 

S^JDatum Unterschrift: 


: SfjRgart 83326-707* 

FAX: 07191 (60077) 


COnPUTER-ELEKTROWX 

Zahlung per Nachnahme oder Vorauskasse. 
Versanckosienpauscftale: Inland 7,80 DM 
(Ausiand 19,80DM) 

07191/1528-29 Od. 60076 

Wettere P'ocukfe auf Anfrage If 



































































































































































































I Programm 


U 


3140 !XOR:POKE &8000.2.POKE 48040,2 
3150 !FELD1 
3160 !FELD2 

3170 fe=ff:ff=PEEK(&8080):I F ff<fe THEN sc 
o=sco+5*(ff-fe):GOSUB 3110 

3180 IF f f= 64 THEN sco=sco+1e v e 1* z e it/30:G 

OSUB 3110:GOTO 2210 

3190 x=ax: y = ay:RETURN 

3200 ' Game over 

3210 ff=REMAIN(0) 

3220 n$=" "+CHR${0):!PRINT.&C332 

, @n$ 

3230 n$ =" GAME OVER "+CHR${0): \ PRINT,&C382 
,@n$ 

3240 n$=" "+CHR$( 0) :! PRINT , 8.C3D2 

, @n$ 

3250 CALL &BB03:CALL 4BB06:GOTO 1760 


[1579] 
[ 956] 
[959 ] 

[3004] 

[4013] 

[2086] 
[953] 
[1371] 
[1676] 

[2598] 

[ 1434 ] 

[1019 ] 


10 1 [117] 

20 * SHIFT.GE2 erzeugt SHIFT.BIN [1198] 

30 * [117] 

40 DATA 01,13,AO,21,OF,AO,CD,Dl,BC,3E,C9,3 [2959] 

2,00,AO,C9,00,0680 

50 DATA 00,00,00,33,AO,C3,64,AO,03,CO,AO,C [ 1753] 
3,CF,AO,03,05,0787 

60 DATA Al,03,18,Al,03,66,Al,03,8D,Al,03,D [3033] 
F,Ai,03,14,A2,0994 

70 DATA 03,49,A2,46,49.40,00,50,55,54,53,5 [2563] 
0,02,4C,4C,49,06A4 

80 DATA 4E,C5,52,4C,49,4E,05,55,4C,49,4E,C [2580] 
5,44,40.49,4E,0631 

90 DATA 05,50.52,49.4E,D4,46.45,40,44,Bl,4 [2476] 
6,45,40,44,B2,066B 

100 DATA 58,4F,D2,00,21,90,CI,06,14,05,E5, [2768] 

06,OA,05,11,00,0595 

110 DATA 90,3E,10,01,FC,07,EB,ED,AO,ED,AO, [2959] 

ED,A0,ED,A0,EB,09EC 

120 DATA OE,FC,09,D2,8A,AO,01,50,CO,09,06, [2438] 

0 7,3D,02,76.A0.064B 

130 DATA CI,10,DA,El,OE.04,09,CI,10,CF,09, [3276] 

06,18,05,E5,06,06DE 

140 DATA 06,05,1A,4F,13,1A,47,13,7E,Al,BO, [2267] 

77,23,01,10,Fl , 05E6 

150 DATA E1,01,00,08,09,D2,BC,AO,01,50,00, [3466] 

09,01,10,DE,09,06B3 

160 DATA DD,5E,00,DD,56,01,DD,6E,02,DD,66, [1717] 

03,C3,9B,A0,DD,07DD 

170 DATA 5E,00,DD,56,01,D5,6B,62,23,01,07, [4369] 

00,1A,ED,BO,12,0528 

180 DATA Dl,DD,6E,02,DD,66,03,06,08,05,1A, [3631] 

13,B7,E5,D5,11.06E6 

190 DATA 40,90,CA,F8,AO,11,60,91,CD,98,AO, [1852] 

Dl,El,23,23,23,0857 

200 DATA 23,C1,10,E5,09,DD,5E,00,DD,56,01, [2558] 

6B,62,2B,01,07,0611 

210 DATA 00,1A, ED, B8,12,03 , El , AO, DD, 5E , 00 , [3055,] 

DD,56,01,D5,68,0704 

220 DATA 62,4E,23,23,23,23,23,23.23,23,06, [1619] 

07,7 E,12,5D,54,0316 

230 DATA 23,23,23.23,23,23,23,23,10,F2,EB, [3495] 
71,Dl,DD.6E.02.0594 

240 DATA DD,66.03,06,08,05,1A,13,13,13,13, [2113] 

13,13,13,13,05,03A0 

250 DATA B7,11,40,90,CA,5A,Al,11,60,91,CD, [2792] 

98,AO,01,BO,FF,0817 

260 DATA 09,Dl,C1,10,EO,09,DD,5E,00,DD,56. [3333] 

01,6B,62,4E,2B,0709 

270 DATA 2B,2B,2B,2B,2B,2B,28,06,07,7E, 12, [3441] 

5D,54,2B,2B,28,02FC 

280 DATA 2B,2B,2B.2B,2B,10,F2,EB,71.EB.C3, [3275] 
3D,Al,DD,6E,00,0700 

290 DATA DD,66,01,23,5E,23,56,DO,6E,02,DD, [2547] 
66,03,1A,13.FD.05FB 

300 DATA 21,6B,A2,B7,08,D5,E5,CD,A5,BB,11, [2620] 

73,A2,CD,53,80,0996 

310 DATA 11,73,A2,E1,E5,01,04,08,C5,E5,1A, [2521] 

FD,A6,00,77.23.06FA 

320 DATA 13,OD,02,BA,Al,FD,23,El,01,00,08, [2663] 

09,D2,03,Al,01,0697 

330 DATA 50,00,09,C1,10,E2,El,23,23,23,23, [2854] 

Dl,03,9D,Al,21,0720 

340 DATA 34,02,11,00,80,06,08,05,06,08,05, [2393] 

1A,13,05,11,40,0480 

350 DATA 90,B7,CA,00,A2,FE,01,11,60,91,CA, [1866] 
00,A2,11,80,92,0743 

360 DATA E5,CD,9B,AO,El.Dl,23,23,23,23,C1, [3202] 

10,DD,OE,80,09,0770 

370 DATA CI,10,04,09,21,50,02,11,40,80,06, [3170] 
08,05,06,08,05,0624 


380 DATA 1A,13,05,11,40,90,B7,CA,35,A2,FE, [3196] 
01,11,AO,93,CA,0748 

390 DATA 35,A2,11,C0,94,E5,CD,9B,A0,E1,D1, [2982] 
23,23,23,23,01,0828 

400 DATA 10,DD,OE,80,09,CI,10,04,09,DD,21, [2501] 

80,80,21,00,80,0691 

410 DATA 11,40,80,01,40,00,DD,70,00,1A,AE, [3000] 
B7,02,64,A2,12,05B8 

420 DATA 77,DD,34,00,13,23,OD,02,59,A2,09, [3858] 

03,03,03,30,30,0402 

430 DATA 30,30,30,00,00,00,00,00,00,00,00, [3206] 
00,00,00,00,00,0090 

440 ad r=&A000 [332 ] 

450 FOR 2=1000 TO 1039 [1281] 

460 FOR 0=0 TO 15:READ a$:POKE adr+o,VAL(" [3447] 
&"+a$):sum=sum+VAL("&"+a$):NEXT 

470 READ sum$ : I F VAL + sum$ )<> sum THEN P [3844] 
RINT"Fehler in Zei1e"2:feh)er=l 

480 adr=adr+16:sum=0:NEXT [972] 

490 IF fehler=0 THEN SAVE M shift.bin",b,&A0 [3945] 
00,ad r-&A000:END 

500 PRINT”B1tte, falsche Zeile korrigieren [3763] 


1 ’ 

2 ' Shift.Gen erzeugt SHIFT.GRA 

3 ' 

10 MODE 0:FOR 1=0 TO 15:REA0 a:INK 1,a:NEX 
T:DATA 0,0,2,0,5,2,14,5,26,26,13,13,15,15, 
6,6 

20 adr=&9000:MEMORY adr-1:a$="024464420244 
64420244644202446442":FOR y=0 TO 15:F0R x= 
0 TO 7:PLOT x*4 ,399-y*2,VAL(MID$(a$,x + y+1, 
1) ) :NEXT:NEXT 

30 sc r = &COOO:FOR y = 0 TO 15:F0R x = 0 TO 3:PO 
KE adr,PEEK(scr+x):adr=adr+l:NEXT:scr=scr+ 
&800:IF scr >-l THEN scr = scr + &C050 
40 NEXT:ad=adr+l:GOSUB 350:G0SUB 300 
50 FOR a=0 TO 1 

60 IF a=0 THEN cl=8:c2=10 ELSE cl=12:c2=14 
70 SYMBOL 254,255.128.128,128,128,128,128, 
128:SYMBOL 255,128,128,128,128,128,128,128 
, 128 

80 POKE &B1C9,2:LOCATE 1,2:PEN 1:PRINT OHR 
$(143) :LOCATE 1,3:PRINT CHR$(143):POKE &B1 
09,0:LOCATE 1,1:PEN cl:PAPER c2:PRINT CHR$ 
(254) 

90 LOCATE 1,2:PRINT CHR$(255) 

100 ad = ad r+1:GOSUB 350' Store 
110 GOSUB 300'Mit Schatten 

120 POKE &B1C9,2:LOCATE 1,2:PEN 1:PRINT CH 
R$(143):LOCATE 1,3:PRINT CHR$(143):POKE &B 
1C9,0 

130 RESTORE 190:FOR y=0 TO 31 STEP 4:READ 
a$:FOR o=0 TO 1:FOR x=l TO LEN(a$) 

140 b=VAL("&"+MID$(a$,x,1)) 

150 IF a = 0 THEN PLOT (x-1)*4,399-y-o*2 , b 
160 IF a=l AND b=1 THEN PLOT (x-1)*4,399-y 
-0*2,b ELSE IF a=1 THEN PLOT (x-1 ) *4,399-y 
-0*2,b+4 

170 NEXT x , o,y:ad = adr + l:GOSUB 350:GOSUB 30 
0 

180 NEXT 

190 DATA 88888888,88888881,88888811,888aal 

11.888aalll,88811111,88 111111,81111111 

200 RESTORE 200:FOR 0=1 TO 7:READ i,a$:FOR 
b=1 TO i:FOR x = 1 TO 12:P0KE adr,VAL("&"+M 
ID$(a$,x*2-l,2)):adr=adr+l:NEXT x,b,o 
210 DATA 2 , ff3fff3fff3fff3fffOOffOO 
220 DATA 6,ff2aff00ffOOff15ffOOffOO 
230 DATA 2,ff2aff003fc03f953fc03fc0 
240 DATA 4,ff2aff007f80ffl5ff00bf40 
250 DATA 2,ff3fff3fff3fff3fffOObf40 
260 DATA 6,ffOOff007f80ffOOffOObf40 
270 DATA 2,ffOOff003fc03fcO3fc03fc0 
280 SAVE"shift.gra",b,&9000,adr-&9000 
290 END 

300 1 Schatten 
310 RESTORE 340 

320 FOR y=0 TO 2:READ a$:FOR 0=1 TO 8:FOR 
x=l TO 6:POKE adr,VAL("&"+MID$(a$,x*2-l,2 ) 
):adr=adr+2:NEXT x,o,y 
330 RETURN 

340 DATA cOcOcOcOffff,c0c000003f3f,ffff3f3 
f 3f 3f 

350 ' Store 

360 scr=&COOO:FOR y=0 TO 23:FOR x=0 TO 5:P 
OKE ad,PEEK(scr+x):ad=ad+2:NEXT:scr=scr+&8 
00:IF scr>-l THEN scr=scr+&C050 
370 NEXT:RETURN 


[117] 

[1560] 

[117] 

[4652] 


[7479] 


[ 6611 ] 


[1672] 
[ 735 ] 

[ 2521 ] 
[4951] 


[5708] 


[955] 

[1777] 

[2013] 

[3817] 


[4173] 

[1466] 
[1132] 
[4840] 


[2711] 

[ 350] 
[3743] 

[4540] 


[ 2679 ] 
[ 730] 

[ 2065 ] 
[2338] 
[ 2861 ] 
[1340] 
[2155] 
[ 1087 ] 
[ 110 ] 

[ 833 ] 

[ 743] 
[7746] 


[ 555 ] 

[ 2084] 

[ 138] 
[8142 ] 


[940] 
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Llsting SHIFT 


22 PC 5’90 









Transformer 

Eine Konvertierung von 8-Nadel- 
auf 24 -Na del-Dru cker 

Nachdem wir im letzten Heft einen Artikel über die Hardcopy-Programmie¬ 
rung veröffentlicht haben, gibt es nun ein ’Umsetzungsprogramm’ für 
8-Nadel-Drucker. Dieses Programm ermöglicht bei vielen Hardcopy- 
Programmen, die nur für einen 9-Nadel-Druck ausgerichtet sind, eine 
Anpassung an einen 24-Nadel-Drucker. 


Im Zuge immer billiger werdender 
24-Nadel-Drucker entschlossen wir 
uns, die guten alten 8-Nadler einzu¬ 
motten und unser Budget für den Ein¬ 
stieg in die “24-Nadel-Technik“ zu in¬ 
vestieren. Allerdings mußten wir 
schon nach kurzer Zeit feststellen, daß 
die meisten Hardcopyroutinen 24-Na- 
del-Druck nicht unterstützen. Da wir 
uns mit der 9-Nadel-Emulation nicht 
zufriedengeben wollten, ersannen wir 
ein 'kongeniales’ Konzept, frei nach 
der alten Weisheit “Warum das Rad 
immer wieder aufs neue erfinden, wo 
doch das Gute so nahe schweift?“ (oder 
so ähnlich). 

Im Klartext bedeutet das, daß wir an 
keine komplett neue Hardcopy-Routine 
dachten, sondern ein Treiberpro¬ 
gramm ins Leben rufen wollten, daß 
auf möglichst viele 8-Nadel-Hardco- 
py-Routinen “aufgestülpt“ werden 
kann. Diese Idee bringt natürlich fol¬ 
gende Einschränkungen mit sich: 

1. Die anzupassende Routine muß 
schon etwas Speicherplatz übrig las¬ 
sen, damit der Treiber mit seiner “gi¬ 
gantischen“ Länge von 470 Byte hin¬ 
eingequetscht werden kann. 


2. Das anzupassende Programm muß 
die Epson-kompatiblen Steuerzeichen 
für die Grafikmodi in einfacher, dop¬ 
pelter oder vierfacher Dichte verwen¬ 
den. Eine Konvertierung der CRT- 
Grafikmodi wäre prinzipiell auch mög¬ 
lich gewesen, hätte aber den Rahmen 
des Treibeiprogramms gesprengt. 

Die Druckervektoren werden 
einfach “umgebogen“ 

3. Da das Abfangen der Druckerdaten 
nur durch “Umbiegen“ der Betriebssy¬ 
stemvektoren MC WAIT PRINTER, 
MC PRINT CHAR bzw. MC SEND 
PRINTER realisiert werden kann (MC 
PRINT CHAR braucht nicht explizit 
“umgebogen“ zu werden, da dieser 
dem Vektor MC WAIT PRINTER 
hierarchisch untergeordnet ist), muß 
das anzupassende Programm diese 
Vektoren folglich auch benutzen. (Lei¬ 
der mußten wir feststellen, daß so man¬ 
cher “professionelle“ Programmierer 
diese elementare Regel der portablen 
Programmierung nicht beherzigt). 

Aus der letztgenannten Einschränkung 
ergibt sich andererseits der Vorteil, 


daß der Treiber auf allen CPCs lauffä¬ 
hig ist. Ein weiterer Vorteil ergibt sich 
aus der Tatsache, daß das Programm 
an jeder beliebigen Stelle im Arbeits¬ 
speicher lauffähig ist und somit keine 
weiteren Einschränkungen im Hinblick 
auf die Einbindung in alte Routinen 
entstehen. Diese “Quasi-Relokabilität“ 
wurde durch eine dynamische Pro¬ 
grammierung zur Laufzeit des Initiali¬ 
sierungteils erreicht (Initialisierungs¬ 
aufruf CALL Adresse, Adresse). Ein 
weiteres Bonbon ist in der Eigenschaft 
zu sehen, daß auch die Konvertierung 
von niedrigeren auf höhere Druckdich¬ 
ten mittels Mehrfachdruck ermöglicht 
wird. 

Eine besonders gute Druck¬ 
qualität ergibt sich auf einem 
NEC-P6-Drucker 

Insbesondere Besitzer von 24-Nadel- 
Druckern, die vierfache Druckdichte 
beherrschen (zum Beispiel NEC P6 
oder P7), kommen damit in den Genuß 
einer optimalen Druckqualität. So, das 
wäre erst mal das Wichtigste in Kurz¬ 
form. Hier noch schnell unsere Hard¬ 
ware-Konfiguration: 

CPC 6128/Grünmonitor 
VORTEX Fl-X-Laufwerk 
SEIKOSHA SL-80AI 

Die Listings 

Listing 1 ist das Setup-Programm. Hier 
findet man außer dem Anpassungsme¬ 
nü mehrere Hilfsseiten, die bei der An¬ 
passung helfen sollen. Anhand von 
Poke-Befehlen kann geprüft werden, 
ob eine Unterstützung überhaupt mög¬ 
lich ist (siehe Bildschirmfotos). 



IMSIALLATIOHS - N I N II E 
fuer 24-fedel-Dmker-Ireiber 

<1> Konvertierung 4-fach* »ichie (8-JUel) -> 4-fach* Dicht* (24-Hadel) 

(2) 'Konvertierung 2-fach* Dichte (8-Had*I> -> 4-fach« Dicht* (24-Kade!) 

(3) Konvertierung 2-faeh* Dichte (8-tUdel) -> 2-fache Dichte <24-Hadel> 

(4) Konvertierung 1-fache Dichte (8-ttedel) -> 4-fache Dichte (24-Hadel) 

Konvertierung 1-fache Dichte (Htadel) -> 2-fache Dichte (24-Kadel) 

(6) Konvertierung 1-fache Dichte (8-fladel) -> 1-fache Dichte (24-Hadel) 

W H i 1 t e 


Bild I: Das Anpassungs-Menü 



Bild 2: Anhand von Pokes kann erst einmal getestet werden, ob eine Anpas¬ 
sung überhaupt möglich ist 
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Bild 3: Stellen Sie die Druckdichte und Grafikart anhand des Druckerhand- Bild 4: Hinw eise zur Installation 

buchesfest 


Listing 2 ist ein Datalader, der unter ei¬ 
nem beliebigen Namen abgespeichert 
werden kann, außer 8to24.Bin, denn 
dieser Name wird automatisch vom 
Programm vergeben! 

Listing 3 ist das Assemblerprogramm, 
das bei Bedarf mit dem CPC-Assem- 
bler aus Heft 6/88 assembliert werden 
kann, aber für das Programm nicht not¬ 
wendig ist. 


für 464-664-6128 


10 '********************************** 

20 ' * * 

30 •* 8 TO 24 * 

40 ‘ * * 

50 '* von * 

60 ' * * 

70 '* Claus Vielhauer/Lutz Voigt * 

80 ' * * 

90 ' * * 

100 '* * 

110 '* August 1989 * 

120 '* * 

130 1 ********************************** 

140 ' 

150 MEMORY &7FFF 
160 MODE 2 
170 ‘ 

180 DIM textS(6) 

190 text$(1)="(1) Konvertierung 4-fache Di 
chte (8-Nadel) -> 4-fache Dichte (24-Nad 

el )" 

200 text$(2)="(2) Konvertierung 2-fache Di 
chte (8-Nadel) -> 4-fache Dichte (24-Nad 
el )" 

210 text$(3)="(3) Konvertierung 2-fache Di 
chte (8-Nadel) -> 2-fache Dichte (24-Nad 
el )" 

220 text$(4)="(4) Konvertierung 1-fache Oi 
chte (8-Nadel) -> 4-fache Dichte (24-Nad 
el ) " 

230 text$(5)="(5) Konvertierung 1-fache Di 
chte (8-Nadel) -> 2-fache Dichte (24-Nad 
el >" 

240 text$(6)="(6) Konvertierung 1-fache Di 
chte (8-Nadel) -> 1-fache Dichte (24-Nad 
el )" 

250 ' 

260 DIM hi 1fe$(4,23) 

270 GOSUB 1300: 'Hi 1fe-Text eintragen 
280 ‘ 


Die Reihenfolge auf Kassette muß wie 
folgt sein: 

SETUP.BAS 
8T024.BIN 

Wesentlich mehr Informationen zu den 
Druckeranpassungen finden Sie in dem 
Setup-Programm, wo detailliert auf die 
möglichen Änderungen eingegangen 
wird. Des weiteren wird gezeigt, ob 
und wie eine Anpassung vorgenommen 


werden kann, denn nicht jede Hardco¬ 
pyroutine läßt sich auf die neuen 
Druckqualitäten einstellen. 

Wichtig ist auch das Druckerhandbuch 
mit den Steuersequenzen für den 
Drucker. Dort können Sie nachlesen. 
ob die Druckercodes für Ihren Drucker 
zutreffen oder abgeändert werden 
müssen. 

(Lutz Voigt/Claus Vielhauer/cd) 




August 1989 


********************************* 


[1391 ] 
[175] 

[ 196] 
[175] 
[269] 
[175] 

[ 1529 ) 
[175] 
[175] 
[175] 

[ 639 ] 

[175] 

t 1391 ] 

[117] 

[150] 

[513] 

[117] 

[957] 

[6398 ] 


[7916] 


[117] 

[ 759 ] 

[1937] 

[117] 
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290 IF PEEK(&BD2C)=&1B THEN typ$="6128" [2787] 

300 IF PEEK(&BD2C)=&B THEN typ$="664" [3174] 

310 IF PEEK(&BD2C)=&F2 THEN typ$="464" [2375] 

320 MODE 2 [513] 

330 LOCATE 34,8:PRI NT"8 T 0 24" [848] 

340 LOCATE 33,11:PRINT"Version 1.2" [1728] 

350 LOCATE 37 , 13:PRINT“by" [ 1764 ] 

360 LOCATE 29,15:PRINT"C1 aus Vielhauer" [3840] 

370 LOCATE 30,16:PRINT"& Lutz Voigt 1989" [1877j 

380 LOCATE 29,19:PRINT"Termina 1 : CPC " + typ [2798j 
$ 

390 MOVE 180,320:DRAWR 250,0:DRAWR 0,-240: [8737] 

DRAWR -250,0:DRAWR 0,240:M0VER 0,-190:DRAW 
R 250,0:MOVE 175,325:DRAWR 260,0:DRAWR 0,- 
250:DRAWR -260,0:DRAWR 0,250 

400 LOAD "8to24.bin" ,&8000 [1041] 

410 WHILE INKEY$="":WEND [1607] 

420 1 [117] 

430 'Menue [1057] 

440 CLS [91] 

450 GOSUB 1240: 1 Rahmen [1831] 

460 LOCATE 22,4:PRINT”I NSTALLATI [2615] 
ONS - MENUE" 

470 LOCATE 27,6:PRINT"fuer 24-Nadel-Drucke [3772] 
r-T reiber" 

480 LOCATE 5,10:PRINT text$(l) [886] 

490 LOCATE 5,12:PRINT text$(2) [1028] 

500 LOCATE 5,14:PRINT text$(3) [1651] 

510 LOCATE 5,16:PR I NT text$(4) [ 1326] 

520 LOCATE 5,18:PRINT text$(5) [1696] 

530 LOCATE 5,20:PRINT text$(6) [1548] 

540 LOCATE 5,23:PR I NT"(?) Hilfe" [1417] 

550 taste$="" [977] 

560 WHILE (taste$ < "1") OR (taste$ > "7") [2668] 
AND (taste$ <> "?") 

570 tasteS = INKEYS [1039] 

580 WEND [390] 

590 IF taste$="?" THEN GOTO 990 [2034] 

600 ON VAL(tasteS) GOSUB 810,840,870,900,9 [2121] 
30,960 

610 GOSUB 1240: 'Rahmen [1831] 

620 LOCATE 5,7:PRI NT"Ihre Wahl:" [2686] 

630 LOCATE 5,9:PRINT text$(VAL(taste$)) [1521] 

640 LOCATE 5,13:PRINT"So 11 diese Konfiguat [6107] 
ion gespeichert werden (j/n) ?" 
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650 taste$ = "" [977] 

660 WHILE taste$="" [1319] 

670 taste$=INKEY$ [1039] 

680 WEND [390] 


690 IF (taste$ <> "j") AND (taste$ <> "J") [2338] 
THEN GOTO 720 

700 LOCATE 5,16:INPUT"Dateiname (nnnnnnnn. [7258] 


bin) :”;f11e$ 

710 SAVE f i 1 e$ , b, 8,8000 ,&1D6 [841] 

720 LOCATE 5,21:PRINT"8 TO 24 - Setup been [3468] 
den (J/n) ?" 

730 taste$=‘"‘ [977] 

740 WHILE taste$="" [1319] 

750 taste$=INKEY$ [1039] 

760 WEND [390] 

770 IF (taste$ <> "j") AND (tasteS <> "J") [2340] 

THEN GOTO 430 

780 CLS:'new [244] 

790 END [110] 

800 CLEAR [217] 

810 1 4 -> 4 [193] 

820 POKE &8126,40:POKE &812A.1 [1168] 

830 RETURN [555] 

840 ' 2 -> 4 [369] 

850 POKE &812E,40:POKE &8132.2 [1027] 

860 RETURN [555] 

870 ’ 2 -> 2 [355] 

880 POKE &812E,33:POKE 68132,1 [1281] 

890 RETURN [555] 

900 ‘ 1 -> 4 [424] 

910 POKE &8136,40:POKE &813A.4 [1490] 

920 RETURN [555] 

930 ' 1 -> 2 [426] 

940 POKE &8136,33:POKE &813A.2 [1204] 

950 RETURN [555] 

960 1 1 -> 1 [431] 

970 POKE &8136,32:POKE &813A.1 [2023] 

980 RETURN [555] 

990 'Hilfe [481] 

1000 GOSUB 1240:' Rahmen [1831] 

1010 WINDOW #1,3,78,2,24 [1138] 

1020 CLS #1 [373] 

1030 FOR Seite=l TO 4 [717] 

1040 CLS #1 [373] 

1050 FOR Zei1e=1 TO 23 [727] 

1060 PRINT#l,hilfe$(Seite,Zeile) [1507] 

1070 NEXT Zeile [558] 

1080 WHILE INKEY$="":WEND [1607] 

1090 NEXT Seite [975] 

1100 CLS #1 [373] 

1110 LOCATE 25,13 [748] 

1120 PRINT"Anleitung drucken (j/n) ?" [3645] 

1130 WHILE taste$o"J" AND taste$o"n" [2331] 

1140 taste$=LOWER$(INKEYS) [1831] 

1150 WEND [390] 

1160 IF taste$="n" THEN GOTO 430 [1337] 

1170 FOR Seite=l TO 4 [717] 

1180 FOR Zei1e=l TO 23 [727] 

1190 PRINT#8,hilfe$(Seite,Zeile) [2350] 

1200 NEXT Zeile [558] 

1210 PRINT#8 [343] 

1220 NEXT Seite [975] 

1230 GOTO 430 [462] 

1240 'UP Rahmen [233] 

1250 CLS [91] 


1260 MOVE 0,0:DRAWR 0,399:DRAWR 639,0:DRAW [2737] 
R 0,-399:DRAWR -639,0 

1270 MOVE 4,4:DRAWR 0,391:0RAWR 631,0:DRAW [3833] 


R 0,-391:DRAWR -631,0 

1280 RETURN [555] 

1290 ' [117] 

1300 'UP Hilfetext eintragen [2213] 

1310 hi 1fe$(1,1) = “BEDIENUNGSANLEITUNG: " [ 1938] 

1320 hilfe$(l,2)="" [702] 


1330 hi 1fe$(1,3) = "Die Anpassung einer 8-Na [ 7343] 
del-Hardcopy-Routine an einen Epson-kompat 
iblen" 

1340 hi 1fe$(1,4) = "24-Nade1-Drucker erforde [ 7345 ] 
rt die Durchfuehrung folgender Schritte: - ' 

1350 hilfe$(1,5)="" [497] 

1360 hi 1feS(1,6) = "1. Sprungvektoren pruefe [ 3825] 
n " 

1370 hi 1fe$(1,7) = "Da die Verwendung der Sp [ 6255] 
rungvektoren MC WAIT PRINTER bzw. MC SEND 
PRINTER" 

1380 hi1fe$(1,8)="notwendige Bedingung fue [6890] 
r einen erfolgreichen Anpassungsversuch is 
t, muss" 

1390 hi 1fe$(1,9) = "zuerst geprueft werden, [8084] 
ob die anzupassende Routine diese auch tat 
saeehlich" 
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1400 hi 1feS(1,10) = "benutzt. Zu diesem Zwec [8514] 
k werden die beiden Daten-Bytes der o.g. V 
ektoren" 

1410 hi 1fe$(1,11) = "durch Nullen ersetzt:" [2702] 
1420 hilfe$(1,12)=" [2887] 

POKE &BDF2.0 : POKE &BDF3,0 
1430 hi 1fe$(1,13) = " [3150] 

POKE &BD32,0 : POKE &BD33.0 
1440 hilfe$(1,14)="" [679] 

1450 hi 1 fe$ ( 1 , 15 ) = ■'Danach wird die HC-Rout [ 6978] 
ine ganz normal aufgerufen, wobei jetzt fo 
1gende" 

1460 hi 1fe$(1,16) = ”Fael1e auftreten koenne [2929 ] 

n : " 

1470 hi 1fe$(1,17) = "a) Die Routine arbeitet [ 6079 ] 
ganz normal weiter. Konsequenz: Die anzup 
assende" 

1480 hi 1fe$(1,18) = " Routine verwendet di [ 6748 ] 
e Sprungvektoren nicht, was bedeutet, dass 
eine An-" 

1490 hi 1fe$(1,19) = " passung leider nicht [ 7084 ] 

moeglich ist ( Schluchz! )." 

1500 hilfe$(l,20)="" [628] 

1510 hi 1fe$(1,21) = "b) Es kommt zu einem RE [5629] 
SET. Konsequenz: Die Sprungvektoren werden 

1520 hi 1fe$(1,22) = " verwendet, so dass m [ 7682 ] 
it dem zweiten Schritt der Anpassung fortg 
efahren" 

1530 hi 1fe$(1,23 ) = " werden kann ( Bravo [3225] 
31istacs! ) . " 

1540 'zwote Seite [1322] 

1550 hilfe$(2,1)="2. Druckdichte feststell [3111] 

en" 

1560 hi 1fe$(2,2) = "Im zweiten Schritt muss [ 7806] 
nun festgestellt werden, welche Grafikart 
das anzu-" 

1570 hi 1fe$(2,3 ) = "passende Program verwend [ 7305] 
et, d.h. welche ESC-Sequenz an den Drucker 
ge-" 

1580 hilfe$(2,4)="schickt wird. Dazu wird [7710] 

Im Rahmen eines erneuten Tests der Drucker 
auf" 

1590 hi 1fe$(2,5) = "hexadezima1en Ausdruck d [8283] 
er Speicherdaten geschaltet (HEX-DUMP, sie 
he ” 

1600 hi 1fe$(2,6) = "Drucker-Handbuch). Die h [9366] 
exadezimal ausgedruckten Speicherdaten, 1- 
2 Seiten" 

1610 hi 1fe$(2,7) = "sol1ten genuegen, muesse [6624] 
n dann auf die Existenz einer der folgende 
n " 

1620 hi 1fe$(2,8) = "ESC-Sequenzen hin unters [3000] 
ucht werden:" 


1630 hi 1fe$(2,9) = "" [ 542 ] 

1640 hilfe$(2,10)=" ESC-Sequenz [4159] 


1650 

1 

1 

Grafikart" 


[4136] 




1660 

hi 1fe$(2,12) = " 

ESC 'K' oder 

ESC 

[4510] 

' * ' 

! 

Grafikdruck mit " 


1670 

hi 1fe$(2, 13) = " 

( 1B 4B oder 

1B 2 

[3827] 

A 00 

) : 

einfacher Dichte" 


1680 

hi 1fe$(2,14) = " 



[1890] 

1690 

hl 1fe$(2 , 15 ) = " 

ESC 'L’ oder 

ESC 

[4989] 


1 

Grafikdruck mit" 


1700 

hi 1fe$(2,16) = 

( 1B 4C oder 

1B 2 

[4800] 

A 01 

) 

doppelter Dichte" 


1710 

hi 1fe$(2,17) = " 



[2060] 

1720 

hi 1fe$(2,18) = " 

ESC 'Y - oder 

ESC 

[4821 ] 

' * ' 2 

1 

Grafikdruck m. 

dopp 


elter" 




1730 

hi 1fe$(2. 19) = " 

( 1B 59 oder 

1B 2 

[6440] 

A 02 

) : 

Dichte u. dopp. 

Ges 


chw. ' 





1740 

hi 1fe$(2, 20 ) = " 



[2062] 

1750 

hil f e$ (2 , 21 ) = " 

ESC 'Z' Ode r 

ESC 

[3347] 

' * ' 3 

• 

Grafikdruck mit 



1 760 

hi 1fe$(2,22) = " 

( 1B 5A oder 

18 2 

[5793] 

A 03 

) : 

vierfacher Dichte" 


1770 

'd ritte Seite 



[ 1708] 


1780 hilfe$(3,1)="3. Installation (Setup)" [2082] 
1790 hi 1fe$(3,2) = "Ist die von der anzupass [ 7752] 
enden Routine benutzte Grafikart bekannt, 
kann " 

1800 hi 1fe$(3,3) = "diese jetzt mit Hilfe de [5817] 
s Programms SETUP.BAS auf die gewuenschte 
Grafik-" 
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1810 HILFE$(3,4)="art des 24-Nadel-Drucker [5317] 
s konvertiert werden. Welche Grafikart ein 


1820 hi 1fe$(3,5) = "gestel1t werden kann ( 1- 
fache. 2-fache oder 4-fache Dichte), muss 
dem" 

1830 hi 1fe$(3,6) = "jewei1igen Drucker-Handb 
uch entnommen werden. Zu Erzielung eines o 
ptima1en" 

1840 hi 1fe$(3,7) = "Druckergebnisses sollte 
stets die hoechstmoeg1iche Dichte gewaehlt 
we rden." 

1850 hi 1fe$(3,8) = "Nachdem das Einstellen d 
er Grafikart durch Anwahl des jeweiligen M 
enue-" 

1860 hi 1fe$(3,9) = "punktes abgeschlossen is 
t, legt SETUP.BAS ein 470 Byte langes Masc 
hinen-" 

1870 hi 1fe$(3,10) = "programm auf Diskette a 
b, welches mit einem beliebigen Namen vers 
ehen " 

1880 hi 1fe$(3,11) = "werden kann. 

1890 'dritte Seite 

igoo hi 1fe$(4,1) = "4. Einbinden des Treiber 
s " 

1910 hi 1fe$(4,2) = "Zum 24-Nadel-Druck muss 
sich das auf diese Weise installierte Trei 
be r- " 

1920 hi 1fe$(4,3) = "prog ramm gleichzeitig mi 
t der anzupassenden HC-Routine Im Arbeitss 
peieher" 

1930 hi 1 fe$(4,4) = "befinden. Hierzu ist ein 
freier Speicherbereich von 470 Bytes erfo 
rde r1ich." 

1940 h11fe$(4,5)="Das Treiberprogramm kann 
prinzipiell an jede beliebige Adresse gel 
aden " 

1950 hi 1 fe$(4,6) = "werden. In der Regel gen 
uegt es, die von der HC-Routine gesetzte S 
ystem-“ 

1960 hi 1fe$(4,7) = "variable MEMORY um 470 B 
yte herabzusetzen und das Treiberprogramm 
an die" 

1970 hi 1fe$(4,8) = "entsprechende Adresse zu 
laden. Abschliessend wird der Treiber dur 
ch den“ 

1980 hi 1fe$(4,9) = "Aufruf CALL Adresse,Adre 
sse initialisiert." 

1990 hi 1fe$(4.10) = "" 

2000 hilfe$(4,ll)="Beispiel: vo 


r he r 

2010 hi 1fe$(4,12) = " 

2020 hi 1fe$(4,13) = " 

2030 hi 1fe$(4,14) = " 
RY x x x x 

2040 hi 1fe$(4,15) = ' 
L xxxx 

n' ,xxxx — 470" 

2050 hi 1fe$(4,16) = “ 

-470“ 

2060 hi 1fe$(4,17) = " 
2070 hi 1fe$(4,18) = " 


nachher 1 


MEMO 

MEMORY xxxx-470" 

CAL 

LOAD ‘nnnnnnnn.bi 


CALL xxxx-470,xxxx 


CALL xxxx” 


2080 hi 1fe$(4,19) = "" 

2090 hi 1fe$(4,20) = "Nun sollte der 24-Nadel 
-Hardcopy nichts mehr Im Wege stehen..." 
2100 hi 1fe$(4,21) = "" 

2110 hilfe$(4,22)="01e, ole, ole, ole, Die 
ter Schroeppke, ole, ole !!!" 

2120 RETURN 


[5034] 

[7336] 

[9534] 

[7120] 

[ 7484 ] 

[6611] 

[1663] 

[1708] 
[3067] 

[8097] 
[6925] 

[7996] 

[6033] 
[6002] 

[ 6622 ] 
[5793] 

[ 5050] 

[ 799 ] 
[3316] 

[ 2478] 

[ 2337 ] 

[3908] 

[5273] 

[4821] 

[ 2639 ] 

[2031 ] 

[315] 

[ 5059] 

[ 756] 
[5838] 

[555] 


10 '************************ 


20 '* * 

30 '* BASIC-LADER fuer * 

40 1 * * 

50 ’* 8T024.BIN * 

60 1 * * 


70 ************************* 

80 1 

90 MEMORY &8FFF 

100 FOR adr=&9000 TO &91D5:READ a$:POKE ad 
r,VAL(“&"+a$):NEXT 

110 SAVE "8to24.bin" ,b,&9000,&lD6 


[ 768 ] 
[175] 

[ 1050] 
[175] 
[71] 
[175] 

[ 768 ] 
[117] 


[ 1810] 


120 DATA B7,C8,DD,6E,00,DD,66,01 
130 DATA E5,DD,El,01,C9,01,E5,09 
140 DATA E5,C1,El,11,5C,00,19,E5 
150 DATA 11,4F,00,DD,19,16,00,DD 
160 DATA 7E,00,B7,28,09,5F , 19,71 
170 DATA 23,70,DD,23,18,Fl , 11 , 16 
180 DATA 00,3A,32,BD,19,77,23,3A 
190 DATA 33,BD,77,CI,21,31,BD,36 
200 DATA C3,23,71.23,70,21,Fl,BD 
210 DATA 36,C3,23,71,23,70,C9,22 
220 DATA OB,23,IE,17,60,05,OC,1B 
230 DATA 06,35,05,00,DD,E5,E5,D5 
240 DATA C5,F5,DD,2A,F2,BD,11,75 
250 DATA 01,DD,19,DD,7E,00,B7,20 
260 DATA 1F,DD,7E,01,B7,20,1B,Fl 
270 DATA F5,FE,1B,20,0C,CD,C9,91 
280 DATA 30,FB,3E,04,DD,77,00,18 
290 DATA 77,CD,C9,91,30,FB,18.70 
300 DATA 18,70,DD,46,04,Fl,F5,5B 
310 DATA 57,AF,CB,02,30,02,F6,EO 
320 DATA CB,02,30,02,F6,IC,CB,02 
330 DATA F5,30,02,F6,C3,C0,C9,91 
340 DATA 30,FB,Fl,3E,00,30,02,F6 
350 DATA 80,CB,02,30,02,F6,70,CB 
360 DATA 02,30,02,F6,OE,CB,02,F5 
370 DATA 30,02,F6,01,CD,C9,91,30 
380 DATA FB,Fl,3E,00,30,02,F6,CO 
390 DATA CB,02,30,02,F6,38,CB,02 
400 DATA 30,02,F6.07,CD,C9,91,30 
410 DATA FB,43,10,A9,DD,6E,02,DD 
420 DATA 66,03,28,DD,75,02,DD.74 
430 DATA 03,7C,B5,20,03,DD,77,01 
440 DATA 18,SB,FE,04,20,59,Fl,F5 
450 DATA FE.4C,28,21,FE,59,28,ID 
460 DATA FE,4B,28,21,FE,5A,28,OD 
470 DATA FE,2A,20,36,DD,7E,00,3D 
480 DATA DD,77,00,18,38,16,28,DD 
490 DATA 36,04,01,18,OE,16,21,DD 
500 DATA 36,04,01,18,06,16,20,DD 
510 DATA 36,04,01,DD,7E,00,3D,30 
520 DATA DD,77,00,3E,2A,CD.C9,91 
530 DATA 30,FB,7A,CD,C9,91,30,FB 
540 DATA 18,6F,AF,DD,77,00,Fl,F5 
550 DATA CD,C9,91,30,FB, 18,62,FE 
560 DATA 03,20,23,3C,DD,77,00,Fl 
570 DATA F5,B7,28,C9,FE,03,38,BD 
580 DATA 28,B3,3E,2A,CD,C9,91,30 
590 DATA FB,Fl,F5,CD,C9,91,30,FB 
600 DATA AF,DD,77,00,18,3B,FE,02 
610 DATA 20,OE,DD.7E,00,3D,DD,77 
620 DATA 00,Fl,F5,DD,77,02,18,29 
630 DATA AF,DD,77,00,Fl,F5,DD,77 
640 DATA 03,21,00,00,DD,5E,02,DD 
650 DATA 56,03,DD,46,04,19,10,FD 
660 DATA 7D,CD,C9,91,30,FB,7C,CD 
670 DATA C9,91,30,FB,3E,01,DD,77 
680 DATA 01,Fl,CI,Dl,El,DD,El,37 
690 DATA C9,CD,2E,BD,38,FB,CF,00 
700 DATA 00,00,00,00,00,01 


[1295] 
[1911] 

[1507] 

[ 908 ] 

[ 1584] 
[717] 

[1196] 
[631] 

[ 1649 ] 

[ 1302 ] 

[1506] 
[2159 ] 
[1767] 
[ 1200 ] 
[1566] 
[939 ] 

[1343] 
[ 1899 ] 
[ 1846] 
[ 643] 

[ 1343 ] 

[1429] 
[ 1266] 
[1794] 
[1908 3 
[1779] 
[ 595 ] 
[1767] 
[1234] 
[ 795 ] 
[1151] 
[1762] 
[ 1186] 
[840] 

[1066] 
[ 1441 ] 
[952 ] 

[ 1010 ] 
[ 999] 

[1430] 
[1766] 
[ 928 ] 

[ 1296 ] 
[1716] 
[ 1612 ] 
[1713] 
[1382] 
[ 1825 ] 
[ 1022 ] 
[ 744 ] 
[830] 

[ 1161 ] 
[1170] 
[1069] 
[ 1903 ] 
[945] 

[1054] 
[1461] 
[ 708] 


10 • 

*********************************** 

[1873] 

20 1 

; * 

* 

[328] 

30 ' 

;* Programm: 8to24.bin 

* 

[ 2988 ] 

40 * 

;* : August 1989 

* 

[ 1009 ] 

50 ' 

; * 

* 

[328] 

60 ' 

;* Druckei—Treiber fuer 

* 

[ 2280] 

70 ' 

;* 24-Nade1-Drucker 

* 

[1570] 

80 ' 

; * 

* 

[328] 

90 ’ 

*********************************** 

[1873] 

100 



[117] 

110 

Initialisierungs- und 


[ 1865 ] 

120 

Installationsteil, 


[1935] 

130 

Aufruf vom BASIC: 


[1474] 

140 

CALL LadeAdresse,LadeAdresse 


[2879] 

150 



[117] 

160 

'org &9000 


[ 505] 

170 



[117] 

180 

'or a ;Pa ramete r uebergeben? 


[1618] 

190 

'ret z jneln -> zurueck 


[1478] 

200 

1 Id 1 , (ix + 0) 


[ 1440] 

210 

1 ld h,(ix+1) 


[ 720 ] 

220 

1 push hl 


[ 45 7 ] 

230 

'pop ix ;Lade-Adr. in ix 


[1651] 

240 

' 1 ö bc,&lc9 ;Offset zu prehr 


[2273] 

250 

'push hl 


[ 45 7 ] 

260 

1 add hl,bc 


[ 774] 


LiSting 8T024 
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270 

'push hl 

( 457 ] 

280 

'pop bc ;bc=abs. Adresse v. prehr 

( 1224 ) 

290 

'pop hl 

[ 554] 

300 

1 d de,8.5c ;0ffs. zum HP-Beginn 

[3054] 

310 

' add h1 ,de 

[816] 

320 

'push hl 

[ 457 ] 

330 

;alle CALL prehr eintragen 

[ 1994] 

340 

’ld de,8.4f ;0ffset z. Ofsset-Tab. 

[ 2181 ] 

350 

'add ix.de ;1x=Pointer a. Tabelle 

[ 1098] 

360 

Id d,0 ;High-Byte d. 0ffsets=0 

[ 2357] 

370 

1oop 1d a,(ix) 

[ 1022 ] 

380 

or a 

[169] 

390 

j r z.finish ;Alles eingetragen? 

[ 1677 ] 

400 

Id e , a 

[ 607] 

410 

add hl.de 

[816] 

420 

ld (hl),c 

[ 404] 

430 

i nc hl 

I 195] 

440 

ld (hl),b 

[405] 

450 

1 nc ix 

[ 181 ] 

460 

jr loop 

[ 492 ] 

470 

finish ld de,8,16 ;0ffs. zu RST8 (PRCH 

[2238] 

R) 



480 

ld a,(&bd32) ;RST-Adr.in Rout. kop. 

[2094] 

490 

add hl,de 

[816] 

500 

ld (hl),a 

[406] 

510 

i nc hl 

[195] 

520 

ld a, (&bd33) 

[ 927] 

530 

ld (hl ) , a 

[ 406] 

540 

pop bc 

[ 487 ] 

550 

ld hl ,&bd 31 ; Vektor MC SEND PR. 

[ 2432 ] 

560 

ld (hl ) , 195 jOPCODE JP nn 

[1105] 

570 


[117] 

580 

i nc hl 

[195] 

590 

ld (hl),c 

[ 404 ] 

600 

i nc hl 

[ 195] 

610 

ld (hl) , b 

[405] 

620 

ld hl , 8.bd f 1 ; Vektor MC WAIT PR. 

[ 1890] 

630 

ld (hl),195 ;OPCODE JP nn 

[1105] 

640 

i nc hl 

[ 195] 

650 

ld (hl ) ,c 

[ 404 ] 

660 

ine hl 

[ 195] 

670 

ld (hl ) ,b 

[ 405 ] 

680 

ret 

[ 476] 

690 


[117] 

700 

;Of fset-T abeIle: 

[1666] 

710 

db &22,8.b,&23,8.1e,&17,&60,&5,&c,&lb,S, 

[2702] 

6 , &35 , &5,8.0 


720 


[117] 

730 

j* Hauptprogramm Version p 

[2518] 

740 


[117] 

750 

; »VARIABLE: 

[1843] 

760 

;*(1x+0) : GMODE (ESC-Seq. liegt an) 

[2506] 

770 

;*(ix+1) : GAKTIV (Flag-Grafik akt.) 

[1584] 

780 

; * (ix + 2 ) : ZAEHL1 (LB des Zaehlers) 

[2301] 

790 

; *(ix + 3 ) : 2AEHL2 (HB des Zaehlers) 

[3049 ] 

800 

;*(ix+4) : MULTIP (Mehrfachdruck) 

[2021] 

810 


[117] 

820 


[117] 

830 

push ix ;alle verwendeten Reg. retten 

[2937] 

840 

push hl 

[45 7 ] 

850 

push de 

[428] 

860 

push bc 

[713] 

870 

push af 

[ 453] 

880 

; 

[215] 

890 

ld 1x,(&bdf2) ; Adresse d. Prg-Beginns 

[2001] 

900 

ld de,8.175 ;Offset Prg. Anfang-Ende 

[3111] 

910 

add ix,de ;Adresse d. 1. Var. in ix 

[2775] 

920 


[117] 

930 

ld a,(1x+0) ;1ag schon ESC-Seq. an? 

[2653] 

940 

o r a 

[169] 

950 

j r nz , zsteu 

[1063] 

960 


[117] 

970 

ld a , (1x4-1) ; noch Grafik-Daten? 

[1828] 

980 

o r a 

[169] 

990 

j r nz,convrt 

[1276] 

1000 


[117] 

1010 

’pop af 

[ 478 ] 

1020 

'push af 

[ 453] 

1030 

’cp 27 ;1iegt ESC an? 

[ 1444 ] 

1040 

'j r nz,ausgab 

[1326] 

1050 

'pr 1 call prehr 

[104] 

1060 

'j r nc,pr1 

[214] 

1070 

'ld a , 4 

[ 728 ] 

1080 

' ld (ix + 0 ) ,a 

[530] 

1090 

' j r endel 

[86] 

1100 


[117] 

1110 

'ausgab call prehr ;unkonvertierte Au 

[3126] 

sgabe 


1120 

'j r nc,ausgab 

[ 446 ] 

1130 

' j r endel 

[86] 

1140 


[117] 


Lisling 8T024 


R. Schuster Computer 

Computer-Hard- und Software 


Spiele für CPC 


Actlon Fightei 
Afterburnoi 
Altered Bcaat 
Arcade-Power 
Barman The Movie 
Buffalo Bills W W 
Rodeo Oames 
Cabal 

California Games 
Carrier Command 
Chuclt Ycagers 
Advanced Flight Trainer 
Coin CJp Hits 
Continental Circus 
Crazy Cars 2 
Das Reich 
Dosolator 
Domina tor 
Doors Of Doom 
Dragon Ninja 
Dragon Spirit 
Dschungelbuch 
Dynamits Dux 
Echelon 
Elevator Action 
Emlyn Hughes Soccer 
Epyx (The World Greatest) 

Epyx Action 
Expansion Kit 
I. Football Man. 2 
Fighting Soccer 
Fists'n Throttles 
Flight ACE 
Football Manager 2 
Football Manager 2 
mit Expansion Kit 
Future Kmght 
Game, Set & Match 2 
Gazza's Super Soccer 
Gemini Wing 
Ghostbusters 2 
Ghouls And Ghosts 
Giants Compilation 
Gold, Silver, Bronze 
Grand Prix Master 
HardDrivin 
Hate 

Heroos of the Lance 
Jack Niclas Golf 
Karate ACE 
Knight Force 
Last Ninja 2 
Leaderboard Par 3 
Led Storm 
Lizens zum Töten 
Microprose Soccer 
Moon walker 
Mi. Hell 

New Zealand Story 
Night Raidor 
Ninja Warrior 
Operation Thunderbold 
Pacmania 
Pirates 6128 
Powerdrift 
Purple Saturn Day 

Raffios 
Red Heat 
Rick Dangerous 
Roadblasters 
Rock'n Roll 
Run The Gauntlet 
Running Man 
Silkworm 
Skwook 

Soccer Snectacular 
Soccer Squad 
Space ACE 
Special Action 

Sprttlng Image 
Sporting Trlangles 
Storm Lord 
Summer Edition 
Super Wondorboy 
Superski 

Suprema Chalienge 
Ton Great Games 3 
Ten Mega Games 
TostDrtve2 
The Real Ghostbusters 
The Scout Steps Out 
Thunderbirds 
Times Of Lore 
Timescanner 
Titan 
Turbo Cup 
Turbo Out Run 
Vigilante 
Vindicators 
War ln Middle Earth 
WecLeMans 
Winners 
Winter Edition 
Xor 

Xybots 

Winners 

Thundei Blade, Led Storm, Indiana Jones. Bla¬ 
steroids. Impossiblu Mission II 
Kassette 41.90 Diskette 59.90 

Coin up Hits 

Out Run. Thundei Blade. Road Blasters, Spy 
Huntei, Bionic Commando 

Kassette 41.90 Diskette 49.90 


Cass. 

DUk. 

29.90 

45.90 

31.90 

44.90 

31.90 

44.90 

49.90 

31.90 

44.90 

29.90 

44.90 

31.90 

47.90 

28.90 

54.90 


42.90 

41.90 

49.90 

47.90 

26.90 

41.90 

45.90 

26.90 

31.90 

47.90 

42.90 

29.90 

44.90 

37.90 

39.90 

31.90 

44.90 

43.90 

34.90 

26.90 

26.90 

43.90 

35.90 

49.90 

22.90 

29.90 

31.90 

44.90 

36.90 

39.90 

45.90 

28.90 

57.90 


43.90 

35.90 

39.90 

54.90 

29.90 

45.90 

28.90 

43.90 

31.90 

45.90 

26.90 

54.90 

35.90 

57.90 

39.90 

66.90 

31.90 

47.90 

31.90 

47.90 

31.90 

44.90 

26.90 

41.90 

57.90 

39.90 

43.90 

29.90 

39.90 

45.90 


59.90 

44.90 

28.90 

39.90 

43.90 

59.90 

26.90 

41.90 

29.90 

42.90 

31.90 

44.00 

29.90 

45.90 

29.90 

45.90 

31.90 

47.90 

31.90 

57.90 

29.90 

41.90 

28.90 

39.90 

29.90 

45.90 

28.90 

39.90 

31.90 

47.90 

28.90 

43.90 

26.90 

39.90 

31.90 

47.90 

31.90 

44.90 

45.90 

29.90 

45.90 

29.90 

45.90 

39.90 

59.90 

29.90 

45.90 

39.90 

43.90 

45.90 

69.90 

28.90 

39.90 

28.90 

43.90 

49.90 

28.90 

43.90 

29.90 

41.90 

28.90 

39.90 

39.90 

49.90 

39.90 

43.90 

39.90 

43.90 

29.90 

51.90 

29.90 

44.90 

32.90 

39.90 

45.90 

29.90 

45.90 

29.90 

44.90 

26.90 

41.90 

42.90 

26.90 

41.90 

26.90 

41.90 

44.90 

29.90 

31.90 

44.90 

41.90 

59.90 

41.90 

25.90 

39.90 

28.90 

39.90 


Epyx Action 

4x4, Winter Edition, Street Sports, Basketball. 
California Games, Impossiblc Mission 2 
Kassette 35.90 Diskette 49.90 

Game, Set & Match n 

Super Hang on, Davis' Snooker, Basket Master, 
Superball, Track & Fiold, Matchday 1J. Cham 
pionchip Sprint 

Kassette 39.90 Diskette 54.90 

Karate ACE 

Way of the Tiger, Samurai Trilogie, Bruce Lee, 
Kung Fu Master, Exploding Fist, Avenger. Uchi 
Mata 

Kassette 39.90 Diskette 43.90 

Soccer Squad 

Footballer of the year, Gary Linekem Soccer, 
Gary Linekers Super Skills, Roy of the Rovers 
Kassette 29.90 Diskette 45.90 

Fist’N'Throttles 

Buggy Boy, Thundercats, Dragons Lau. Enduro 
Racer 

Kassette 36.90 Diskette 39.90 

Supreme Chalienge 

Elite, Semmel. Starglider, ACE ü. Tetris 
Kassette 39.90 Diskette 49.90 

Arcade Power/Muscle 

Street Fighter. Bionic Commando. Ronol Bla¬ 
sters, 1943, Side Arms 

Diskette 49.90 

Ten Mega Games 

North Star, Cybernoid, Deflector. Trailblazer. 
Bloodbrothor, MASK II. Tour de Force, Hercu- 
losi. Masters of the Universo. Blood VolJey 
Kassette 39.90 Diskette 43.90 

Ten Great Games III 

10th Framo. Fnelord. Ranaramn. Fighter Pilot, 
Leaderboard. Indis Alpha, Eagles, Rebounder. 
Alley Cat, Last Mission 

Kassette 39.90 Diskette 43.90 

Flight ACE 

Advanced Tactical Fighter, Tomahawk, Strike 
Force Harrler, Speedfile 40, ACE, Airtraffic, 
Combat 

Kassette 45.90 Diskette 57.90 

Space ACE 

Xevius. Venoil Slrrkes Back, Cybernoid, North 

Star, Zynaps, Trantor, Exolon 

Kassette 39.90 Diskette 43.90 

EPYX 

World Games. Winter Games. Impossible Mis¬ 
sion, Supercycle 
Kassette 26.90 


Par 3 

Leaderboard Leaderboard 
Worldclass Leaderboard. 


Toumement- 
Diskette 51.90 

Soccer Spectacular 

Football Manager, Peter International Soccer, 
World Champions, Soccer Supromo. Peter Shil- 
tons Handball 

Kassette 39.90 Diskette 59.90 


BTX für CPC 

Bildschirmtext-Modul 
für CPC 464, 

CPC 664, CPC 6128 
anschlußfertig 

249 .- 


nur 


CPC-ZUBEHÖR 


Kabel CPC/an Fernseher 

rn, Scart . 19.80 

BUdschirmfilter GT 64/65 . 34.90 

Bildschirmfilter CTM 640/644 .... 39.80 

Druckerkabel 464/664 . 29.80 

Druckerkabel 6128 . 29.80 

Monitorverlängerung CPC 464 27.90 

Momtorverlangerung 

CPC 664/6128 . 34.90 

Kabel Computer/Recorder . 19.80 

3"-Disketten, lOStck. 69.00 


Hardware aul Anfrage. 

lrrtümer und Preisänderungen Vorbehalten Bestellungen schriftlich oder telefonisch. 

R. Schuster Computer 

Obere Münsterstr. 33-35 - Tel. (023 05) 3770 - 4620 Castrop-Rauxel 

Bei allen Bestellungen unbedingt Computertyp angeben 

Geschäftszeiten Montag - Freilag 9 00-13,00 und 14.00 18.00 Uhr. Samstag 9 00-13 00 Ihn 
Versand nur per NN zuzügl 8.00 DM Vcnsandkoston oder Vorkasse auf Postgiro-Kto.-Nr. 69422-460 
Postgiroamt Dortmund zuzüglich 6,00 DM Ausland nur per Vorkasse zuzügl 12,00 DM 
Neueste kplt Softwareiisle bei |eder Bestellung kostenlos oder gegen frankierten Rückumschlag 
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-Programm 


'zsteu jr Steuer [777] 

[117] 

';Beginn Konvert.-Routi ne [ 682 ] 

' convrt 1 d b , ( i x + 4 ) ;Anzahl Mehrf.-Or [2822 ] 

'prloop pop af [761] 

•push af [453] 

'1d e,b [602] 

'Id d,a [611] 

'xor a [456] 

' r ]c d [730] 

' j r nc,rot 2 [ 806 ] 

'or SeO [256] 

' rot2 rlc d [1854] 

1 j r nc,rot3 [809 ] 

'or Sic [ 545 ] 

1 rot3 rlc d [1198 ] 

'push af [453] 

'jr nc.mcl [531] 

'or 3 [191 ] 

'mcl call prchr [1762] 

•jr nc.mcl [531] 

'pop af [478] 

■’d a.O [732] 

‘j r nc,rot4 [812 ] 

'or S80 [338] 

‘rot4 r1c d [1182 ] 

'jr nc,rot5 [815] 

'or S70 [364] 

' rot5 rlc d [ 1166 ] 

’jr nc.rotö [ 818 ] 

'Or Se [88] 

1 rot6 rlc d [ 1407 ] 

'push af [453] 

'jr nc , mc2 [534] 

'or 1 [185] 

'mc2 call prchr [1264] 

'jr nc,mc2 [534] 

'pop af [478] 

'’d a,0 [732] 

' j r nc,rot7 [ 821 ] 

'or ScO [212] 

' rot7 rlc d [ 1774] 

' j r nc , rot8 [ 792] 

'or S38 [332] 

' rote rlc d [ 1244] 

'jr nc,mc3 [537] 

'or 7 [187] 

'mc3 call prchr [1431] 

'jr nc,mc3 [537] 

'• 1 d b , e [615] 

'djnz prloop ;Schleife f. Mehrf.-Druc [2433] 


Id 1,(i x + 2 ) [1420] 

ld h,(ix+3) [891] 

dec hl ; dekr. d. Grafik-Zaehlers [ 3065 ] 

ld (1X + 2 ) ,1 [454 ] 

ld (1x + 3),h [515 ] 

ld a,h [676] 

or 1 [190] 

jr nz.endel [602] 

ld (1x+l),a ;keine weiteren Grafik-D [1801] 


;Ende Konvert.-Routine 
endel jr ende2 

Steuer cp 4 ;weitere Untersuchung 

jr nz.drei ;e1ner ESC-Sequenz 

pop af 

push af 

cp "L" 

j r z , dicht 2 

cp "Y" 

j r z , dlcht 2 

cp “K" 

j r z,dichtl 

cp "Z" 

j r z,dicht4 

cp "* " 

jr nz.nograf ; kein Grafik-Druck 
ld a,(1x+0) 
dec a 

ld (ix + 0) .a 
jr ende2 
dicht4 ld d,40 
ld (ix+4 ) ,1 
j r gin i t 
dicht2 ld d,33 
ld <ix+4),1 
j r glni t 


[ 608] 
[117] 

[1980] 
[117] 
[1679] 
[1437] 
[ 478] 
[453] 
[321 ] 
[959 ] 
[303] 

[ 959 ] 
[339 ] 

[ 956] 
[301] 

[ 949 ] 
[525 ] 
[3105] 
[ 1059 ] 
[ 386] 
[530] 
[85] 

[ 1257 ] 
[ 449] 
[170] 

[1383] 

[449] 

[170] 


' dichtl ld d,32 
' ld (1x + 4),1 
'ginit ld a,(ix+0) 

'dec a 
‘ dec a 

' ld (ix + 0),a 
' 1 d a , " * " 

'pr2 call prchr 
’jr nc,pr 2 
' 1 d a , d 

'pr3 call prchr 
'j r nc,pr3 
'j r ende 
'nog ra f xor a 
' ld (ix + 0 ) ,a 
'pop af 
‘push af 
‘pr4 call prchr 
'j r nc,pr4 
'ende 2 j r ende 
'drei cp 3 
' j r nz,zwei 
' i nc a 

'ld (ix+0),a 
'pop af 
'push af 
’ or a 

'j r z.dichtl 
' cp 3 

'jr c,dicht 2 
'j r z,dicht4 
’ 1 d a , " * " 

'pr7 cal1 prchr 
'j r nc,pr7 
'pop af 
'push af 
'pr8 cal1 prchr 
’jr nc,pr8 
'xor a 

'ld (ix + 0) ,a 
'jr ende 
'zwei cp 2 
'j r nz,g ron 
'1d a , (ix+0) 

' dec a 

' 1d (ix + 0),a 
'pop af 
'push af 
' ld (ix + 2),a 
'j r ende 

’gron xor a ;Grafik aktiv schalten 

1 ld (ix + 0) ,a 

'pop af 

'push af 

' ld (1x + 3),a 

' ld hl,0 

' 1d e , (ix + 2) 

' ld d,(ix + 3) 

‘ ld b,(ix + 4 ) 

' ad 1oop add hl.de 
'djnz adloop 
' ld a,1 

' pr5 call prchr 
' j r nc,pr5 
' 1 d a , h 

' pr6 call prchr 
' j r nc,pr6 
' ld a. 1 
'ld (ix+1) , a 

'ende pop af ;alle Reg. restaurieren 
' pop bc 
' pop de 
' pop hl 
' pop ix 
' scf 


;Drucker-Ausgabe-UP 

prchr call Sbd2e ;MC BUSY PRINTER 
1 jr c,prchr 

1 rst 8 ;MC SEND PRINTER 
db 0,0 ;<- wird von Init. eingetrage 


2870 

2880 

2890 

2900 

2910 

2920 


gmode db 0 
gaktiv db 0 
zaehll db 0 
zaehl2 db 0 
multip db 1 


[930] 

[449] 

[ 557 ] 
[386] 

[ 386] 
[530] 
[564] 

[1302] 

[213] 

[648] 

[1300] 

[ 212 ] 

[163] 

[712] 

[530] 

[478] 

[453] 

[460] 

[227] 

[1463] 
[654] 

I 705 ] 
[254] 

[ 530] 

[ 478] 
[453] 

[ 169] 
[956] 
[555 ] 
[466] 
[949] 

[ 564] 
[771] 
[224] 

[ 478] 
[453] 
[1013] 
[239 ] 

[456] 
[530] 
[163] 

[ 1004] 
[831] 

[ 1059 ] 

[386] 

[530] 

[478] 

[453] 

[417] 

[163] 

[117] 

[3980] 

[ 530] 
[478] 
[453] 

[ 490] 

[889] 

[805] 

[1145] 

[1483] 

[532 ] 

[2326 ] 
[672] 
[239 ] 

[ 226] 
[676] 

[ 529] 
[225 ] 

[ 735 ] 

[ 347] 
[117] 
[2913] 

[ 487 ] 

[457] 

[ 554] 

[ 588 ] 

[ 187] 

[ 476] 
[117] 

[ 1479 ] 
[2888] 
[168] 

[ 1992 ] 
[2866] 

[117] 

[1052] 
[603] 

[1109] 
[1149] 

[1406] 
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PCW 

DATABOX 


DATABOX ist der preiswerte Software-Service Ihrer Zeitschrift 
DATABOX enthält lauffähige Programme für Ihren Einsatz 
DATABOX lohnt sich auf jeden Fall - Monat für Monat 


PCW 8256/8512/9512 


Noten 

-komfortables Programm zum Erstellen von Kom¬ 
positionen unter LOGO 

FDC 

- Manipulation des Disketten-Controllers. Der 
einfache Datentransfer zwischen PCW und 
MS-DOS-Formaten wird ermöglicht, sofern Sie ein 
5,25“-Laufwerk Ihr eigen nennen. 

Gratis für alle Joyce-/PCW-Anwender: 

3 Super-Programme zusätzlich: 

1. Funktionstasten 

Nach Aufruf dieses Programms werden die aktuel¬ 
len Belegungen der Funktionstasten angezeigt. So 
haben Sie jederzeit den Überblick. 


2. Industriemanager 

Sie sind Geschäftsführer eines neugegründeten 
Industriebetriebes. Mit Geschick und sicherem 
Gespür für die Marktlage und -entwicklung müssen 
Sie nun den Betrieb zu einem florierenden Unter¬ 
nehmen ausbauen. Doch aufgepaßt, die Konkur¬ 
renz schläft nicht. Eine wirklich gelungene 
Industriesimulation, bei der bis zu zehn (!) Spieler 
teilnehmen können. 

Plakatentwurf 

Ein vollkommen menügesteuertes Programm zum 
Entwurf und Ausdruck von Plakaten in DIN-A4- oder 
DIN-A5-Größe. Vielfältige Möglichkeiten der Textge¬ 
staltung durch variable Schriftgrößen lassen Ihrer 
Fantasie freien Lauf. 


Einzelbezugspreis für DATABOX: 

PCW - 3“-Diskette 


24,- DM 

Wenn Sie über den DMV-Verlag bestellen, gilt folgendes: 

Inland: Ausland: 

Einzelpreis 24.- DM Einzelpreis 24,- DM 

zzgl. Versandkosten 4,- DM zzgl, Versandkosten 6,- DM 

Endpreis 28,- DM Endpreis 30,- DM 


Das DATABOX-Abo kostet: 

Als Diskette für 1/2 Jahr (6 Lieferungen) 

Im Inland und West-Berlin. 150,- DM 

Im europäischen Ausland. 160,- DM 

Im außereuropäischen Ausland. 180,- DM 


Als Diskette für 1 Jahr (12 Lieferungen) 


Im Inland und West-Berlin. 300,- DM 

Im europäischen Ausland. 320,- DM 

Im außereuropäischen Ausland. 360,- DM 


Bitte benutzen Sie für Ihre Bestellung die Abo-Karte. 

Zahlungshinweise: 

Am einfachsten per Vorkasse (Verrechnungsscheck) oder als Nachnahme zuzüglich der Nach¬ 
nahmegebühr, (Bei Lieferungen Ins Ausland ist Nachnahme nicht möglich.) 

Widerrufsrecht: 

Jeder Abonnent hat das Recht, seine Bestellung innerhalb einer Woche beim DMV-Verlag, 
Postlach 250, 3440 Eschwege, schriftlich zu widerrufen. Die rechtzeitige Absendung des 
Widerrufschreibens genügt zur Fristwahrung. 


Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 
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r~Proqramm 


Farbe ^©gCdsO® ®ogCd □□□ 

Das Tüftelspiel “ Change“ 

Der Wirbel, den Professor Rubiks Zauberwürfel mit sei¬ 
nem Erscheinen verursachte, ist eines jener Phänomene, 
deren Erklärung sich allem Nachvollziehbaren entzieht. 
Das Drehen der farbigen Flächen im Raum hatte eine 
seltsame, eigene Faszination, der sich kaum jemand ver¬ 
schließen konnte. 

Das Programm Change holt die Gehirnwindungen aus 
der dritten Dimension heraus und stellt dem Spieler ein 
zweidimensionales Pendant auf dem CPC-Monitor zur 
Verfügung. 


Gespielt wird Change auf einem Feld, 
das je nach Level die Form eines Drei¬ 
ecks, Quadrates oder Sechsecks be¬ 
sitzt. Diese geometrischen Figuren 
sind ihrerseits in ebensolche kleineren 
Flächen unterteilt. 

Nach dem Programmstart müssen die 
Spieleranzahl und der Schwierigkeits¬ 
grad angegeben werden, worauf der 
Computer das erste Spielfeld zu zeich¬ 
nen beginnt. Der Großteil der Felder 
wird grün eingefärbt; einige aber erhal¬ 
ten blaue beziehungsweise rote Ober¬ 
flächen. Ziel des Spiels ist es nun, das 
komplette Spielfeld “ergrünen“ zu las¬ 
sen. Erst wenn alle Felder mit grüner 
Farbe bedacht sind, erlaubt das Pro¬ 
gramm den Einzug in das nächste Level. 

Es grünt so grün... 

Mittels Joystick wird ein Cursor über 
das Spielfeld gesteuert. Wird dieser auf 
einem Feld positioniert, so ist man in 
der Lage, durch Drücken des Feuer¬ 
knopfes sowohl das aktuelle als auch 
alle angrenzenden Felder dazu zu brin¬ 
gen, Chamäleon zu spielen. Der Farb¬ 
wechsel folgt dabei strengen Regeln. 
Aus Rot wird Blau, aus Blau wird Grün, 
und Grün wird zu Rot. Geschicktes 
Agieren des Spielers ist nun erforder¬ 



Jedes dritte Level bringt ein Sechseck auf den Monitor 


lieh, will er das gesamte Spielfeld in 
grüner Farbe erblühen lassen. Daß er 
sich bei dieser Schwerstarbeit nicht ru¬ 
hig zurücklehnen kann, bewirkt eine 
lästige Uhr, die unbarmherzig einen 
Countdown vollführt. Bei Null ange¬ 
kommen, wirft sie den Spieler ebenso 
unbarmherzig aus dem Rennen, wobei 
er sich in eine Highscore-Tabelle ein¬ 
tragen kann, wenn er genügend Punkte 
gesammelt hat. 

Damit die Erfolge im Jahre 1990 auch 
den Enkeln im Jahre 2020 noch auf 
dem CPC dargeboten werden können, 
erstellt das Programm eine ewige Be¬ 
stenliste, die auf Datenträger gesichert 
wird. 

Sie können sich auch mit einem 
menschlichen Gegenspieler messen, 
wenn Ihnen nach Wettbewerb ist. Die 
Gegner werden dabei nicht aufeinander 
losgelassen, sondern haben ihre Aufga¬ 
ben nacheinander zu erledigen. Jeweils 
20 Einfärbungen sind dem einen Kon¬ 
trahenten gestattet, bevor sein Gegner 
sich seines eigenen Feldes bedienen 
darf. Wenn Ihnen bei diesem bunten 
Spektakel kurzfristig nach einem 
schwarzen Kaffee zumute ist, so kön¬ 
nen Sie den Spielablauf durch Drücken 


der P-Taste auf unbestimmte Dauer un¬ 
terbrechen . 

Insbesondere bei hohen Levels ist es 
vonnöten, sich nicht auf die Zufalls¬ 
methode (ich drück’ mal hier und da, 
mit der Zeit wird’s schon grün) zu ver¬ 
lassen. Nach den ersten Spielrunden 
werden Sie schnell ein Gefühl für die 
Farbwechsel bekommen, so daß Sie 
diese Erfahrung in späteren Levels in 
lebenswichtige Taktiken umsetzen 
können. 

Hinweise zum Abtippen 

Tippen Sie zunächst Listing 1 (CHAN¬ 
GE. BAS) ab, und sichern Sie es. Besit¬ 
zer eines CPC 664/6128 brauchen die 
Zeilen 1830 und 2170 nicht einzuge¬ 
ben. In Zeile 1290 können bei Bedarf 
die Farben geändert werden. 

Listing 2 (CHANGEHI.BAS) sollten 
Sie gleich nach dem Abtippen und Si¬ 
chern starten; es schreibt dann die vom 
Programm benötigte Highscore-Liste 
auf den Datenträger. 

REM-Zeilen werden vom Programm 
nicht angesprungen, so daß sich ein 
Eintippen erübrigt. 

(Martin Schmid/jf) 


für 464-664-6128 


io ‘************************ 

20 '** CHANGE.BAS ** 

30 '** -Hauptprogramm- ** 

40 '** 1988 by «* 

50 '** Martin Schmld ** 

60 1 ************************ 

70 GOTO 1290 
80 ‘ 

90 '** Farbe der Ueberschrlft aende 
100 ' 

110 p=(p+1)MOD 3:PEN#3,p+l:LOCATE#3 
INT#3,"CHANGE - "1988 by M.Schmld": 
120 ' 

130 '** Zeit um 1 verringern ** 

140 ' 

Listing CHANGE 



[117] 

[1696] 
[117] 


150 PEN 2:zeit(s)=zeit(s)-l:IF anz=0 THEN [6978] 
LOCATE 31,3 ELSE IF anz=l AND s=0 THEN LOC 
ATE 9,4 ELSE IF anz=l AND s=l THEN LOCATE 
29,4 

160 PRINT USING"###";ze1t(s):IF zeit(s)=0 [12328] 

THEN q=REMAIN(1):IF anz=0 THEN a=0:l=640:x 

=12:GOSUB 920 ELSE IF anz=l AND s=0 THEN a 

=0:l=318:x=3:GOSUB 920 ELSE IF anz=l AND s 

=1 THEN a=322:l=318:x=23:GOSUB 920 

170 RETURN [555] 

180 ' [117] 

190 ' ** Joystickabfrage *# [2910] 

200 ' [117] 

210 IF ende=l THEN q=REMAIN(1):GOTO 1010 E [2910] 

LSE 1$=INKEY$:j =JOY(s):xka = xk(s):yka=yk(s) 

220 IF UPPER$(i$)="P"THEN 1810 ELSE IF s=0 [2284] 
THEN i$ ="" 

230 IF j=4 OR i$=CHR$(242)THEN 0N(1ev-l)M0 [2373] 

D 3+1 GOTO 370,540,670 

240 IF j=8 OR i$=CHR$(243)THEN ON(1ev-1)MO [2561] 

D 3+1 GOTO 380,550,680 
Listing CHANGE 
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[ 1065] 

[ 13614] 


250 IF j=l OR i$=CHR$(240)THEN ON(lev-l)MO [2066] 
D 3+1 GOTO 390,560,690 

260 IF j =2 OR i$ = CHR$(241)THEN ON(lev-l)MO [2894] 
D 3+1 GOTO 400,570,700 

270 IF j = 1 6 OR j =32 OR i$=CHR$(224)THEN f= [4936] 
f+1:ON(1 ev-1)MOO 3+1 GOTO 410,580,710 
280 IF fbg(s)=0 THEN GOSUB 820 
290 IF anz=1 AND f=20 AND zus$(0)="w"AND z 
us$(l)="w"THEN q=REMAIN(1):PEN 3:IF s=l TH 
EN LOCATE 2,2:PRINT CHR$(24)"SPIELER 1 CHR 
$(24) : LOCATE 22,2 : PRINT "SPIELER 2''ELSE LOC 
ATE 2,2:PRINT"SPIELER 1":L0CATE 22,2:PRINT 
CHR$(24)"SPIELER 2"CHR$(24) 

300 IF anz=l THEN IF f=20 THEN IF zus$(0)= [7839] 
"w"THEN IF zus$(1)="w"THEN f=0:s=1-s:PRINT 
CHR$(7):FOR q=l TO 1000:NEXT:WHILE INKEY$ 

<>"":WEND:EVERY 50,1 GOSUB 150 

310 IF anz=1 THEN IF zus$(s)<>"w"THEN s=l- [2180] 


[3169] 


[3977] 

[117] 

[1288] 
[117] 


[8068] 


320 IF ende=0 THEN IF zus$(0)<>"w"THEN IF 
zus$(1)< > " w " T H E N q = REMAIN(l):GOTO 1420 
330 FOR q=1 TO 60-(60 AND(1ev-1)MOD 3+1=3) 

: NEXT:GOTO 210 
340 ‘ 

350 '** Steuerung im Dreieck ** 

360 ' 

370 IF xk(s)>yk(s)+l THEN xk(s) = xk(s)- 1:GO [3029] 
TO 410 ELSE 280 

380 IF xk(s) <35-yk(s)THEN xk(s) = xk(s) + 1:GO [3077] 
TO 410 ELSE 280 

390 IF y k(s)<17 AND xk(s)<35-yk(s)AND xk(s [3529] 

) >yk(s) + 1 THEN yk(s) = yk(s) + l:GOTO 410 ELSE 
280 

400 IF y k(s ) >1 THEN yk(s)=yk(s)- 1 ELSE 280 [2188] 
410 PLOT-10,-10,3:MOVE xka*8+6+(160 AND an [3640] 
z=0)+(320 AND s=l),yka*16+6:PRINT#4,CHR$(2 
55): 

420 IF j = 16 OR j = 32 OR i$ = CHR$(224 )THEN IF [4526] 
y k(s ) = 1 THEN IF(xk(s)AND 1) = 1 THEN 440 
430 IF j = 16 OR j = 32 OR 1$ = CHR$(224)THEN xl [ 5565 ] 
=xk(s):yl=yk(s):h=l:GOSUB 450:h=0 
440 PLOT-10,-10,3:MOVE xk(s)*8+6+(160 AND 
anz=0) + (32 0 AND s=1),yk(s)* 16 + 6:PRINT#4,CH 
R$(255 );:GOTO 280 

450 IF((x1 AND 1)=0 AND(y1 AND l)=l)OR((xl [12052] 
AND 1)=1 AND(y1 AND 1)=0)THEN x=xl:y=yl:G 
OSUB 470:x=xl-l:y=yl:GOSUB 470:x=x1+1:y=y1 
:GOSUB 470:x=x1:y=y1+1:GOSUB 470:RETURN 
460 x=xl:y=yl:GOSUB 470:x=x1+1:y=y1:GOSUB [6970] 
470:x=xl:y=y1-1:GOSUB 470:x=xl-l:y=yl;GOSU 
B 470:RETURN 

470 fa{s,x,y) = (fa(s,x,y) + l)MOD 3:fbg(s)=fb [5801] 
g(s)-(1 AND fa(s,x,y)=0)+(l AND fa(s,x,y)= 

1) :IF h< >1 THEN RETURN 

480 LOCATE#2,l,l:PRINT#2,aus$:PLOT-10,-10, [5583] 
fa(s,x,y)+l:MOVE x*8+(320 AND s=l)+(160 AN 
D anz = 0) , y*16 

490 IF ( (x AND 1 ) =0 AND(y AND l) = l)OR((x AN [ 13664] 
D 1)=1 AND(y AND 1)=0)THEN MOVER 0,12:DRAW 
R 6,-10:DRAWR 6,10:DRAWR-10,0:MOVER 2,-2:1 
F cpc=128 THEN CALL &A200,fa(s,x,y)+1:LOCA 
TE#2,1,1:PRINT#2,ein$:RETURN ELSE FILL fa( 
s , x,y) + l:LOCATE#2,1,1:PRINT#2,ein$:RETURN 
500 DRAWR 12,0:DRAWR-6,12:MOVER 1,0:DRAWR- [11125] 
6,-12:MOVER 3,3:IF cpc=128 THEN CALL &A200 
,fa(s,x,y) + l: L0CATE#2,1,1:PR I NT#2,ein$:RET 
URN ELSE FILL fa(s,x,y)+1:LOCATE#2,1,1:PRI 
NT#2,ein$:RETURN 
510 ' 

520 ' ** Steuerung im Quadrat ** 

530 ’ 

540 IF x k(s)> 2 THEN xk(s)=xk(s)-1:GOTO 580 [2154] 
ELSE 280 

550 IF xk(s)<17 THEN xk(s)=xk(s)+1:GOTO 58 [3609] 

0 ELSE 280 

560 IF yk(s)<17 THEN yk(s)=yk{s) +1:GOTO 58 [3269] 

0 ELSE 280 

570 IF y k(s)> 2 THEN yk(s)=yk(s)-1 ELSE 280 [2024] 
580 MOVE xka*16+8+(160 AND anz=0)+(320 AND [8002] 
s=l),yka*16-10:PRINT#4,CHR$(255);:IF j=16 
OR j = 32 OR i$ = CHR$(224)THEN h=l:GOSUB 600 
: h=0 

590 MOVE xk(s)*16+8+(160 AND anz=0)+(320 A [3196] 
ND s=l),yk(s)*16-10:PRINT#4,CHR$(255); :GOT 
0 280 

600 x=xk(s):y=yk(s):GOSUB 620:x=xk(s)-1:y= [10517] 
yk(s ) + 1:GOSUB 620:x=xk(s):y=yk(s) + l:GOSUB 
620:x=xk(s)+l:y=yk(s)+l:GOSUB 620:x=xk(s)+ 

1:y=yk(s):GOSUB 620:x=xk(s)+1:y=yk(s)-1:GO 
SUB 620 

610 x=xk(s):y=yk(s)-l:GOSUB 620:x=xk(s)-1: 


[117] 

[1473] 

[117] 


[7090] 
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y=yk(s)-l:GOSUB 620:x=xk(s)-l:y=yk(s):GOSU 
B 620:RETURN 

620 fa(s,x,y)=(fa(s,x,y)+l)MOD 3:fbg(s)=fb [5801] 
g(s)-(1 AND fa(s,x,y)=0)+(1 AND fa(s,x,y)= 

1 ) : IF hoi THEN RETURN 

630 LOCATE 1,1:PRINT aus$:L0CATE#2,x+{10 A [6767] 
ND anz = 0) + (20 AND s=l) + l,20-y:PEN#2,fa(s,x 
,y)+l:PRINT#2,CHR$(254);:LOCATE 1,1:PRINT 
ein$:RETURN 

640 ' [117] 

650 ' ** Steuerung im Sechseck ** [2967] 

660 ‘ [117] 

670 IF(yk(s)<9 AND xk(s ) >11-yk(s))0R(yk(s) [ 7284] 

>21 AND xk(s)>yk(s)-19)0R(yk(s)>8 AND yk(s 
)< 2 2 AND xk(s) >2)THEN xk(s ) = xk(s)-1:GOTO 7 
10 ELSE 280 

680 IF(yk(s)<9 AND xk(s ) <5+ yk(s))OR(yk(s)> [8047] 
21 AND xk(s)<35-yk(s))0R(yk(s)>8 AND yk(s) 

<22 AND xk(s)<14)THEN xk(s)=xk(s)+1:GOTO 7 
10 ELSE 280 

690 IF y k(s)< 21 OR(yk(s)>20 AND xk(s)<35-y [7105] 
k(s)AND xk(s)>yk(s)-19)THEN yk(s ) =yk(s ) +1: 

GOTO 710 ELSE 280 

700 IF yk(s)>9 OR(yk(s)<10 AND xk(s)<5+yk( [2779] 
s )AND x k(s ) >ll-yk(s))THEN yk(s)=yk(s)-1 EL 
SE 280 

710 PLOT-10,-10,3:MOVE xka*18+18+( 1 60 AND [6606] 
anz = 0) + (320 AND s=1) ,yka*10-4:PRINT#4,CHR$ 

(255) ; 

720 IF j = 16 OR j =32 OR i$ = CHR$(224)THEN IF [ 7430 ] 

((xk(s)AND 1)=0 AND(yk(s)AND 1)=0)OR((xk(s 

) AND 1) = 1 AND(y k(S)AND 1) = 1)THEN 740 

730 IF j = 16 OR j = 32 OR i$ = CHR$(224)THEN xl [5466 ] 

=xk(s):yl=yk(s):h=l:GOSUB 750:h=0 

740 PLOT-10,-10,3:MOVE xk(s)* 18 +18+(160 AN [5098] 

D anz = 0) + (320 AND s=l),yk(s)* 10-4:PRINT#4, 

CHR$(255);:GOTO 280 

750 x=xl:y=yl:GOSUB 760:x=xl:y=y1+2:GOSUB [10904] 
760:x = x1 + 1:y=y1 + 1:GOSUB 760:x = xl+l:y=yl-l: 

GOSUB 760:x=xl:y=yl-2:GOSUB 760:x=xl-l:y=y 
1-1:GOSUB 760:x=xl-l:y=y1+1:GOSUB 760:RETU 
RN 

760 fa(s,x,y)=(fa(s,x,y)+l)MOD 3:fbg(s)=fb [5801] 
g(s)-(l AND fa(s,x,y)=0)+(l AND fa(s,x,y)= 

1) :IF hOl THEN RETURN 

770 L0CATE#2,1.1:PRINT#2,aus$:PL0T-10,- 10 , [12183] 
fa(s,x,y)+l:MOVE x*18+10+(320 AND s=l)+(16 
0 AND anz=0),y*10-10:DRAWR 12,0:DRAWR 4,8: 

DRAWR-4,8:DRAWR-12,0:DRAWR-4,-8:DRAWR 4,-8 
:MOVER 2,2:IF cpc=128 THEN CALL &A200,fa(s 
,x,y)+1 ELSE FILL fa(s,x,y)+l 

780 LOCATE#2,1,l:PRINT#2,ein$:RETURN [2469] 

790 1 [117] 

800 ’** Pruefen,ob das Spielfeld leer ist [2302] 

** 

810 ' [117] 

820 IF fbg(s)=0 THEN IF zus$(s)="w"THEN q= [8804] 

REMAIN(l):pkt(s)=pkt(s)+lev*50+sk*50+INT(( 
zeit(s)/((10 AND sk=4)+(25 AND sk=3)+(43 A 
ND sk=2)+(67 AND sk=l)))*50) 

830 IF fbg(s)=0 THEN IF zus$(s)="w"THEN zu [7009] 
s$(s) = "g":zeit(s)=200-sk*2 5 + INT ( (zei t(s)/( 

(10 AND sk=4)+(25 AND sk=3)+(43 AND sk=2)+ 

(67 AND sk=l)))* 10) 

840 IF fbg(s)=0 THEN PEN 3:IF anz=0 THEN L [9178] 
OCATE 23,5 ELSE IF anz=l AND s=0 THEN LOCA 
TE 11,5 ELSE IF anz=l AND s=l THEN LOCATE 
31,5 

850 IF fbg(s)=0 THEN IF zus$(s)="g"THEN PR [2986] 
INT USING"########";pkt(s) 

860 IF anz = l THEN . IF zus$(s) = "g"THEN PEN 3 [ 11479 ] 

: IF zus$(l-s) = "w"THEN IF s = l THEN LOCATE 2 
,2:PRINT CHR$(24)"SPIELER 1"CHR$(24):LOCAT 
E 22,2:PRINT“SPIELER 2”ELSE LOCATE 2,2:PRI 
NT"SPIELER 1":LOCATE 22,2:PRINT CHR$(24)"S 
PIELER 2"CHR$(24) 

870 IF(anz=1 ANO fbg(0)=0 AND fbg(l)=0)OR( [9280] 
anz=0 AND fbg(0)=0)THEN SOUND 1,320,320,10 
,,1:SOUND 2,345,345,10,,1:SOUND 4,370,370, 

10,,1:WHILE SQ(4)<>4:WEND:GOTO 1420 

880 IF anz=l AND(fbg(0)=0 OR fbg(1)=0)THEN [10064] 
SOUND 1,320,320,10,,1:SOUND 2,345,345,10, 

,1:SOUND 4,370,370,10,,1:WHILE SQ(4)<>4:WE 
ND:EVERY 50,1 GOSUB 150:RETURN ELSE RETURN 
890 ‘ [117] 

900 '** Spielende ** [1144] 

910 ’ [117] 

920 PEN#2,2:PAPER#2,1:L0CATE#2,1,1:PRINT#2 [3715] 

, aus$:IF fbg(s)=0 THEN 970 
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930 SOUND 1,400,600,15,2,2:SOUND 2,350,600 
,15,2,2:SOUND 4,450,600,15,2,2 : FOR i=300 T 
O 200 STEP-2-.PLOT-10, —10,1:M0VE a , i : DR AWR 
1 O.NEXT 

940 L0CATE#2,X,4:PRINT#2,"G A M E OVER 
":PRINT#2,e1n$:WHILE SQ(4)<>4:WEND:WHILE I 
NKEY$<>"":WEND:WHILE INKEY$="":WEND:IF an2 
=0 THEN ende=1 

950 IF x=3 THEN zus$(0)="a"ELSE IF x=23 TH 
EN zus$(l)="a" 

960 IF anz = l THEN IF zus$(0)="a"AND zus$(l 
) ="a"THEN end e=1 ELSE s=l-s:PEN 3:IF s = 0 T 
HEN LOCATE 2,2:PRINT CHR$(24)"SPIELER 1"CH 
R$(24):LOCATE 22,2:PRINT"SPIELER 2"ELSE LO 
CATE 2,2:PRINT"SPIELER 1":L0CATE 22,2:PRIN 
T CHR$(24)“SPIELER 2"CHR$(24) 

970 PEN#2,1:PAPER#2,0:EVERY 50,1 GOSUB 150 

:RETURN 

980 1 

990 '** Bei Highscore Namen abfragen ** 
1000 ' 

1010 PAPER#2,0:PEN#2,2:n$(0)="":n$(l)="":I 
F pkt(0)>0 AND pkt(0)>=pte(9)THEN 3=0:GOSU 
B 1050 

1020 IF pkt(1)>0 AND pkt(1)>=pte(9)THEN s= 
1:GOSUB 1050 

1030 GOSUB 1200:IF n$(OX>""OR n$(l)<>"“TH 
EN OPENOUT"CHANGE.HI":FOR 1=0 TO 9:PRINT#9 
, na$(i ):PRINT#9,pte(i):NEXT:CLOSEOUT 
1040 GOTO 1350 

1050 CLS:CLS#2:x=15:na$(9)="" 

1060 IF anz=0 THEN LOCATE#2,5,4:PRINT#2,"B 
itte geben Sie Ihren Namen ein:“ 

1070 IF anz=l THEN LOCATE#2.5,4:PRINT#2,"S 
pieler";s+1;"geben Sie Ihren Namen ein:" 

1080 LOCATE# 2,15,10:PRINT#2, "_" 

1090 a$=UPPER$(INKEY$):IF a$=""THEN 1090 E 
LSE IF a$=CHR$(13)THEN 1140 

1100 IF a$ = CHR$(127)THEN IF LEN(na$(9 ) )>0 
THEN na$(9)=LEFT$(na$(9),LEN(na$(9))-1):x= 
x-1:LOCATE#2,x,10:PRINT#2,:GOTO 1090 EL 
SE 1090 

1110 IF x< 25 THEN na$(9)=na$(9) + a$ELSE 109 
0 

1120 LOCATE#2,x,10:PRINT#2,a$:x=x+l 
1130 GOTO 1090 

1140 pte(9)=pkt(s):n$(s)=na$(9) 

1150 FOR 1=0 TO 8:h=1:FOR j = i+1 TO 9:IF pt 
e(h)<pte(j)THEN h=j 

1160 NEXT:pte=pte(1):pte(i)=pte(h):pte(h)= 
pte:na$=na$(i):na$(1)=na$(h):na$(h)=na$:NE 
XT:RETURN 
1170 ' 

1180 '** Highscore Liste ausgeben ** 

1190 * 

1200 CLS:CLS#2:t$="THE BEST CHANGERS" 

1210 FOR z =1 TO LEN(t$) :FOR h = 0 TO 7:r(h) = 
PEEK(HIMEM+l+(ASC(MID$(t$,Z, 1))- 32 ) * 8+h ) : N 
EXT 

1220 SYMBOL 220,r(0) ,r(0) ,r( 1 ) ,r(1),r(2 ) , r 
(2),r(3),r(3):SYMBOL 221,r(4),r(4),r(5),r( 
5 ) ,r(6) ,r(6),r(7),r(7) :PEN 1:LOCATE ll + z.3 
:PRINT CHR$(220):PEN 3:LOCATE ll+z,4:PRINT 
CHR$(221):NEXT 

1230 PEN#2,1:PRINT#2:PRINT#2:PRINT#2:PRINT 
#2,TAB(10)"NAME"T AB(2 6)“PUNKTE":PR INT#2 
1240 FOR i=0 TO 9:PEN#2,2:IF pkt(0)=pte(1) 
AND n$(0)=na$(i)THEN PEN#2,1 ELSE IF pkt(l 
) = pte(1 )AND n$(l)=na$(i )THEN PEN#2,3 
1250 PRINT#2,TAB(6)USING“##.";i+1;:PRINT#2 
,TAB(10)na$(1)TAB(25)USING"########";pte(i 
) :NEXT:PEN#2,3:LOCATE#2,18,19:PR INT#2,"TAS 
TE";:RETURN 
1260 ' 

1270 '** Hauptprogramm ** 

1280 ‘ 

1290 MODE 1 : INK 0,0:INK 1,18:INK 2,6:INK 3 
, 2:SYMBOL AFTER 256:DEFINT b-z:DEFREAL p:D 
IM fa(l,36,36):cpc=PEEK(6):IF cpc=128 THEN 
GOSUB 1870 

1300 SYMBOL AFTER 32:FOR ad r = HIMEM+1 TO HI 
MEM+ 7 68:POKE adr,PEEK(adr)OR PEEK(adr)\2:N 
EXT:DEFINT a 

1310 SYMBOL 254,0,254.254,254,254,254,254, 
254:SYMBOL 255,128,192,224,240,248,48,28,6 
: ENT-1,1,-1,1:ENT-2,1,15,15,1,-8,10:ENV 2, 
15,-1,40 

1320 FOR i=0 TO 7:PAPER#1,0:PEN#i,1:NEXT:B 
ORDER 0:p=l:PRINT TAB(8)"CHANGE - "CHR$(16 
4 ) " 1988 by M.Schmid":EVERY 100,2 GOSUB 110 
1330 WINDOW 1,40,2,6:WINDOW#2,1,40,7,25:WI 


[8387] 


[ 10245 ] 


[1833] 

[17375] 


[2822 ] 

[117] 
[2801 ] 
[117] 
[5479 ] 


[3177] 
[6352 ] 


[460] 

[815] 

[3577] 

[ 4360] 

[1393] 
[3472] 

[5960] 


[2369] 

[940 ] 

[ 393] 

[ 1232 ] 
[2511] 

[3693] 


[117] 

[1566] 

[117] 

[ 3021 ] 
[5327] 


[ 9360 ] 


[ 5469 ] 
[7871] 


[ 6953 ] 


[117] 

[1315] 

[117] 

[ 5525 ] 


[6046] 


[7529] 


[8827] 


[4023] 
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NDOW#3,1,40,1,1:WINDOW#4,1,40,7,25:T AGOF F: 
T AG# 4 

1340 OPENIN"CHANGE.HI":FOR i=0 TO 9:LINE I 
NPUT #9,na$( 1 ):INPUT#9,pte(i):NEXT:CLOSEIN: 
GOSUB 1200 

1350 WHILE INKEY$<>"":WEND:WHILE INKEY$="" 

:WEND:f = 0:ende = 0:um=40:fbg(0)=0:fbg(1)=0:p 
kt(0)=0:pkt(l)=0:1ev = 0:ein$ = CHR$(23)+CHR$ ( 

1):aus$=CHR$(23)+CHR$(0):zus$<0)="w":zus$( 

1)="w” 

1360 CLS#2:CLS:PEN#2,3:LOCATE#2,5,5:PRINT# 
2,"Wieviele Spieler ? (1/2)":WHILE INKEY$< 
>"":WEND 

1370 LOCATE#2,32,5:PRINT#2,"_"CHR$(8);:a$= 
INKEY$:PRINT#2,a$:IF a$<"l"OR a$>"2"THEN F 
OR 1=1 TO 100:NEXT:GOTO 1370 ELSE anz=VAL( 
a$) -1 

1380 PEN#2,2:LOCATE#2,5,8:PR I NT#2,"Schwier 
igkeitsgrad (1-4)":WHILE INKEY$<>"":WEND 
139 0 LOCATE#2,32,8:PRI NT#2,"_"CHR$(8); :a$ = 
INKEY$:PRINT#2,a$:IF a$<"l"OR a$>"4"THEN F 
OR i=1 TO 100:NEXT:GOTO 1390 ELSE sk=VAL(a 
$) : zei t (0) = 200-sk*25:zeit(l)=zeit(0) 

1400 IF anz=0 THEN LOCATE 5,3:PEN 1:PRINT" 
LEVEL:":LOCATE 25,3:PEN 2:PRINT"ZEIT:":LOC 
ATE 15,5:PEN 3:PRINT"PUNKTE : " 

1410 IF anz=l THEN FOR i=0 TO 1:LOCATE 1*2 
0+2,2:PEN 3:PRINT"SPIELER";i+1:LOCATE 1*20 
+ 2,3:PEN 1: PRINT"LEVEL:":LOCATE i*20 + 2,4:P 
EN 2:PRINT"ZEIT:":LOCATE 1*20+2,5:PEN 3:PR 
INT"PUNKT E:":NEXT 

1420 lev=lev+l:fbg(0)=0:fbg(l)=0:ERASE fa: 
DIM fa(l,36,36) : IF zus$(0) = "g"THEN zus$(0) 
= " w" 

1430 IF zus$(l)="g"THEN zus$(l)="w" 

1440 IF anz=0 THEN LOCATE 13,3:PEN 1:PRINT 
USING"###“;1ev:LOCATE 31,3:PEN 2:PRINT US 
ING"###";zeit(0):LOCATE 23,5:PEN 3:PRINT U 
SING"########";pkt(0) 

1450 IF anz=1 THEN FOR 1=2 TO 22 STEP 20:L 
OCATE 1 +8,3:PEN 1:PRINT USING”###";1ev:LOC 
ATE 1+7,4:PEN 2:PRINT USING"###";zeit((1-2 
)/20):LOCATE i+9,5:PEN 3:PRINT USING"##### 
###";pkt((1—2)/20):NEXT 

1460 IF anz=l AND zus$(0 ) = "w"AND zus$(l) = " 
w"THEN start=INT(RND*2):PEN 3:IF start=0 T 
HEN LOCATE 2,2:PRINT CHR$(24)"SPIELER 1"CH 
R$(24):LOCATE 22,2:PRINT"SPIELER 2"ELSE LO 
CATE 2,2:PRINT"SPIELER l":LOCATE 22,2:PRIN 
T CHR$(24)"SPIELER 2"CHR$(24)ELSE start=0 
1470 s=0:f=0:0N((1ev-1)MOD 3)+l GOSUB 1510 
,1620,1680:s=start:EVERY 50,1 GOSUB 150:GO 
TO 210 
1480 ' 

1490 '** Dreieck berechnen ** 

1500 * 

1510 um=um+10:FOR 1=1 TO I NT(um*1.3):y1 = 1N 
T(RND*17)+1:xl=INT(RND*32)+3 
1520 IF x1> 35-y1 THEN IF xl>yl + l THEN xl = x 
1-1:h=l 

1530 IF x1<y1 +1 THEN IF xl<35-yl THEN xl = x 
1+1:h=l 

1540 IF(y1=1 AN D(x1 AND 1) = 1)THEN IF xl<34 
-yl THEN xl=xl+l:h=l ELSE xl=xl-l:h=l 
1550 IF h=l THEN h=0:GOTO 1520 ELSE GOSUB 
450:NEXT 

1560 IF anz=l THEN FOR x=l TO 35:FOR y=l T 
O 18:fa(l,x,y)=fa(0,36-x,y):NEXT:NEXT:fbg( 
1) = f bg(0 ) 

1570 CLS#2:FOR s=0 TO anz:FOR y=l TO 18:FO 
R x=y TO 36-y:GOSUB 480:NEXT:NEXT:NEXT 
1580 xk(0)=2:yk(0)=l:xk(l)=2:yk(l)=l:PRINT 
#2,e1n$:FOR s=0 TO anz:PLOT-10,-10,3:MOVE 
xk(s)*8+6+(160 AND anz=0)+(320 AND s=l),yk 
(s)*16+6:PRINT#4,CHR$(255);:NEXT:RETURN 
1590 ' 

1600 '** Quadrat berechnen ** 

1610 ' 

1620 s=0:fbg(0)=0:fbg(1)=-l:FOR i=l TO um: 
xk(0)=INT(RND*16)+2:xk(l)=xk(0):yk(0)=INT( 
RND*16)+2:yk(l)=yk(0) :GOSUB 600:NEXT:fbg(l 
) = fbg(0):IF anz = l THEN FOR x=l TO 18:FOR y 
= 1 TO 18:fa(1,x,y) = fa(0,19-x,y ) :NEXT:NEXT 
1630 CLS#2:FOR s=0 TO anz:FOR x=l TO 18:F0 
R y=1 TO 18:LOCATE#2,x+l+(20 AND s=l)+(10 
AND anz=0),20-y:PEN#2,fa(s,x,y)+1:PRINT#2, 
CHR$(254);:NEXT:NEXT:NEXT 

1640 xk(0)=2:yk(0)=2:xk(1)=2:yk(1)=2:PRINT 
#2,e1n$:FOR s = 0 TO anz:PLOT-10,-10,3:MOVE 
xk(s)*16+8+(160 AND anz=0)+(320 AND s=l),y 
k(s)*16-10:PRINT#4,CHR$(255);:NEXT:RETURN 
1650 ' 

Listing CHANGE 


[4572] 

[10650] 

[5250] 

[6112] 

[6920] 

[8375] 

[4982] 

[12348] 

[3801 ] 

[ 1045 ] 
[7568] 

[9455] 

[16267] 


[ 6468 ] 

[117] 

[812] 

[117] 

[3435] 

[1424] 

[2407] 

[3670] 

[3028] 

[5590] 

[4456] 
[7390] 


[117] 

[630] 

[117] 

[14517] 


[8582] 


[9343] 


[117] 
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1660 '** Sechseck berechnen ** [1421] 

1670 ' [117] 

1680 FOR 1=1 TO um [550] 

1690 yl = INT(RND*26)+3:xl = INT{RND*(13— <1 AN [ 3561 ] 

D yl*0.5 = INT(yl*0.5) ) ) ) * 2 

1700 IF y1< 9 THEN IF xl<ll-yl THEN xl=xl+l [ 1899 ] 

:GOTO 1700 

1710 IF y1< 9 THEN IF xl>5 + yl THEN xl = xl-l: [1919] 
GOTO 1710 

1720 IF y1>22 THEN IF xl<yl-20 THEN xl=xl+ [2087] 

1:GOTO 1720 

1730 IF y1>22 THEN IF xl>36-yl THEN xl = xl- [2096] 
l:GOTO 1730 

1740 IF((y1 AND l)=0 AND(xl AND l)=0)OR((y [3875] 

1 AND 1)=1 AND(x1 AND 1)=1)THEN 1690 

1750 GOSUB 750:NEXT:FOR x=l TO 15:FOR y=l [6695] 

TO 36:fa(1,x,y)=fa(0,16-x.y):NEXT:NEXT:fbg 

(l)=fbg(0) 

1760 CLS#2:FOR s=0 TO anzrFOR y=l TO 8:FOR [13224] 
x=9-y TO 8+y STEP 2:G0SUB 770:NEXT:NEXT:F 
OR y = 9 TO 22:FOR x = 2-(l AND(y AND 1)=0)TO 
15 STEP 2:GOSUB 770:NEXT:NEXT:FOR y=23 TO 
30:FOR x=y-21 TO 37-y STEP 2:G0SUB 770:NEX 
T:NEXT:NEXT 

1770 xk(0)=8:yk(0)=3:xk(1)=8:yk(1)=3:PRINT [10692] 

#2,ein$:FOR s=0 TO anz:PLOT-10,-10,3:MOVE 

x k(s)* 18+18+(160 AND anz=0)+(320 AND s=l), 

yk(s)*10-4:PRINT#4,CHR$(255);:NEXT:RETURN 

1780 1 [117] 

1790 '** Pause ** [746] 

1800 ' [117] 

1810 q = REMAIN(l) :PEN l:LOCATE 17,1:PRINT"P [9421 ] 

AUSE":BORDER 3,9:FOR i=25 TO 6 STEP-l:OUT 

&BC00,6:OUT &BDOO,1:FOR a=l TO 50:NEXT:NEX 

T:WHILE UPPER$(INKEY$)< >"P":WEND 

1820 LOCATE 17,1:PRINT" ":BORDER 0:FOR [6380] 

1=6 TO 25:OUT &BC00,6:OUT &BDOO,1:FOR a=l 
TO 50:NEXT:NEXT:EVERV 50,1 GOSUB 150:GOTO 
210 

1830 ‘ [117] 

1840 'Besitzer eines CPC 664/6128 koennen [5051] 

hier mit dem Abtippen aufhoeren !!! 

1850 '** Fi11-Routine fuer CPC 464 (CPC In [2935] 
t.4/87) ** 

1860 ' [117] 

1870 MEMORY &A1FF:FOR adr = &A200 TO &A2E1:R [2693] 

EAD a$ 

1880 w=VAL("&"+a$):POKE adr,w:NEXT:RETURN [2038] 
1890 DATA df,04,a2,c9,07,a2,fe,7b [605] 

1900 OATA cd,f6,17,f5,Cd,fc, 15 , cd [2366] 

1910 DATA 27,18,cd,86,Oc,cl,b8,c8 [1312] 

1920 DATA 32,df,a2,cd,la,16,cd,ff [1001] 

1930 DATA 16,d2,95,a2,e5,fd,el,d5 [1586] 

1940 DATA dd,el,cd,a9,Ob,3a,df,a2 [1770] 

1950 DATA 47,fd,23,cd,2d,Oc,3a,34 [1245] 

1960 DATA b3,fd,95,38,05,78,ae,al [1772] 

1970 DATA 28,ef,fd,2b,cd,13,Oc,51 [1057] 

1980 DATA 59,e5,c5,cb,01,de,05,Oc [1913] 

1990 DATA 78,42,ae,al,57,20,0a,b0 [1000] 

2000 DATA 28,07,dd.2b,df,a5,a2,dd [1253] 

2010 DATA 23 , cl,el,e5,c5,cb,09,de [1187] 

2020 DATA f9,Ob,78,43,ae,al,5f,20 [1459] 

2030 DATA Oa,bO,28,07,dd,23,df,a5 [1957] 

2040 DATA a2,dd,2b,c1,e1,3a,38,b3 [896] 

2050 DATA ae,al,ae,77,3a,36,b3,fd [1523] 

2060 DATA 95,30,Oa,fd,2b,cd,13,Oc [1178] 

2070 DATA 78,ae,a1,28,b4,2a,eO,a2 [1304] 

2080 DATA 7d,b4,c8,2b,22,eO,a2,df [1792] 

2090 DATA cd,a2,c3,1e,a2,a8,a2,fd [1736] 

2100 DATA d5,2a , 89,ae,01,03,00,cd [ 1 769 ] 

2110 DATA 18 , f6,38,17,eb.22,89,ae [ 720] 

2120 DATA dd,e5,dl,fd,e5,cl,2b,72 [1370] 

2130 DATA 2b,73,2b,71,2a,eO,a2,23 [1333] 

2140 DATA 22 , eO,a2,dl,c9,dO,a2,fd [ 1475 ] 

2150 DATA 2a,89,ae,2b,56,2b,5e,2b [829] 

2160 DATA 22,89,36,66,26,00,09,00 [1510] 

2170 DATA 00,00 [440] 


10 

' CHANGEHI.BAS : 


[721] 

20 

Dies 

es Programm schreibt eine 


[3135] 

30 

'leer 

e High-Score-Liste auf 


[1473] 

40 

'die 

Diskette und muss vor dem 


[1837] 

50 

'ersten Start des Spieles ein- 


[2748] 

60 

' mal 

gestartet werden,danach 


[2446] 

70 

' kann 

es wieder geloescht 


[1658] 

80 

' werd 

en ! 


[895] 

90 MODE 

1 :PRINT"Bitte Sp1e1diskette 

ein1 eg 

[7952] 

en " 

:PRINT"und eine Taste druecken!" 



100 

CALL 

&BB06:0PENOUT"change.hl" 


[1640] 

110 

FOR 

1=0 TO 9:PRINT#9,“- 

:PRIN 

[2451] 

T #9 

, " 0 " 




120 

NEXT 

:CLOSEOUT 


[904] 


Listing CHANGE 


VirusDoktor 


Eine Programmsammlung, die Sie gegen 
alle bekannten PC-Computer-Viren wappnet 


Auch schon betroffen? 

- Schäden durch 
infizierte, un¬ 
brauchbare 
Programm¬ 
dateien? 

- Datenverlust 
durch forma¬ 
tierte und 
zerstörte 

Speichermedien? 

- Zeitverlust und Ärger 
durch Verstellen der 
Systemkonfigura¬ 
tion? 


STOP 


tfST s/eger 

• 1 pc Plus 9/8®-- 


stfmeu. 

Mo*ucnv*>i 

£223^ *>* 


'Sooooooaoo 


uKKÄ-ÄSi- 


VirCheck - 

Ein Kontrollprogramm der Superklasse! 

• Kontrolle Ihrer Programme auf Längenänderung, Attributierung etc. 

• Spezieller Check für virusbedingte Abänderung des Programmcodes 

• Überwachung von Umbenennungen und Verschiebungen von Dateien 

• Beliebige Auswahl der kontrollierten Programmgruppen 

• Hohe Effektivität und Geschwindigkeit durch variables SETUP 

• Komfortables, menügesteuertes, grafisches Installationsprogramm 

VirSperr - 

dreimal Schutz vor Virusinfektion 

• Drei Programme zum Absichern Ihrer Dateien vor Veränderungen 

• Ausführlicher Report über versuchte Zugriffe auf Ihre Dateien 

• Virussicheres Fixieren von gesetzten Read-Only-Attributen 

• Ein- und Ausschalten des Schreibschutzes per Tastendruck 

Und als Zugabe 

CMOS-BKP - Konfigurationssicherung für AT- und AT- kompatible Rechner 


VirusDoktor 


Fünf wertvolle Programme zum Preis von einem 
plus ausführliche Programmanleitung 
inklusive Grundwissen über Computerviren 

Für alle MS-DOS-Computer 


99,- DM (unverbindliche Preisempfehlung) 

Wenn Sie über den DMV-Bestellservice bestellen, gilt folgendes: 


Inland: 


Ausland: 


Einzelpreis 

99,- DM 

Einzelpreis 

99,- DM 

zzgl. Versandkosten 

4,- DM 

zzgl. Versandkosten 

6,- DM 

Endpreis 

103,- DM 

End preis 

105,- DM 


Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 • 3440 Eschwege 
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100,- DM 
für 1 kByte 

Die Heraus¬ 
forderung 


Erinnern Sie sich noch? Im September 1988 hieß es zum 
ersten Male in diesem Heft “100 DM für 1 kByte“. Seit 
dieser Ausgabe begleitet uns die “magische Zahl“ 101 
(WO DM und 1 kByte) in der PC Amstrad International. 
Das damals erste Programm “Minensuche“ stammte 
aus der Feder der PC-Amstrad-Redaktion und war als 
Anreiz für unsere Leser gedacht. 

Daß diese Aktion zu einer derart großen Resonanz füh¬ 
ren sollte, überrascht selbst heute noch. Nun sind seit 
besagtem Herbst exakt 100 Leserprogramme und 
1 Redaktionsprogramm veröffentlicht worden. Grund 
genug, eine kleine Wahl zum besten 1-kByte-Progranim 
durchzuführen. 


Bevor wir also mit den Programmen 102 bis 107 unsere Rei¬ 
he fortsetzen wollen, rufen wir Sie auf, das Ihrer Meinung 
nach beste 1-kByte-Programm auszusuchen. Wir haben eine 
Liste aller zur Wahl stehenden Programme zusammenge¬ 
stellt und jedes mit einer Laufnummer versehen. Schreiben 
Sie einfach die Nummer Ihres Favoriten auf die Rückseite ei¬ 
ner Postkarte, und senden Sie diese an den 


DMV-Verlag 

Redaktion PC Amstrad International 
Stichwort “1-kByte-Wahl“ 

Postfach 250 
3440 Eschwege 


Unter allen Einsendern verlosen wir 10 Sonderdisketten mit 
allen(!) bis dahin veröffentlichten 1-kByte-Programmen; das 
sind inklusive der im Sonderheft 8-89/90 veröffentlichten 
Kurzprogramme nicht weniger als 120! Und wo gibt es schon 
mit etwas Glück für den Preis einer Postkarte 120 Computer¬ 
programme zu gewinnen? Diese Sonderdisketten werden im 
übrigen nur in der limitierten Auflage von exakt 10 Stück er¬ 
stellt. 



Um es noch einmal deutlich zu sagen: Die Sonderdisketten 
werden in keinster Weise käuflich zu erwerben sein. Wenn 
Sie aber diese Einmaligkeit Ihr eigen nennen wollen, bleibt 
Ihnen nichts anderes übrig, als bei dieser Wahl mitzumachen. 
Das Ergebnis und die glücklichen Gewinner werden wir in 
einer der Sommer-Ausgaben veröffentlichen. 

Der Einsendeschluß für diese Aktion ist der 31. 
Mai 1990. Mitarbeiter des DMV-Verlages, 
des Redaktionsbüros Everts & Ha¬ 
gedorn sowie all jene, die durch 
verwandtschaftliche Beziehungen 
mit gerade genannten verbunden 
sind, dürfen sich nicht an der Wahl 
beteiligen. Der Rechtsweg ist ausge¬ 
schlossen. 


1. Minensuche 

9/88 

2. Screenmix 

10/88 

3. Spaceworm 

11/88 

4. LDC 

11/88 

5. Brain 

11/88 

6. Sternenzeichner 

11/88 

7. BASIC V.2 

12/88 

8. Spaceworld 

12/88 

9. Autorennen 

12/88 

10. Balkendiagramm 

12/88 

11. Hypertest 

1/89 

12. Senso 

1/89 

13. Dichter 

1/89 

14. Microsymb 

1/89 

15. Bekanoid 

2/89 

16. Take it 

2/89 

17. Charakternennung 

2/89 

18. Troff 

2/89 

19. CPC-Orgel 

3/89 

20. Kreisel 

3/89 

21. Reaktion 

3/89 

22. Parabeln 

3/89 

23. U-Boot 

3/89 

24. 1-kByte-Super-Master 

3/89 

25. Grafiken 

4/89 

26. Ideal für Erwachsene 

4/89 

27. Hopping Mad 

4/89 

28. Labyrinth 

4/89 

29. Verschiebefix 

4/89 

30. Corner 

4/89 

31. Format 

5/89 

32. Morsen 

5/89 

33. Rosette 

5/89 

34. Fast Screen Filler 

5/89 

35. Sequence 

5/89 

36. Strich-Grafik-Programm 

5/89 

37. Lissajous-Generator 

6/89 

38. Key 

6/89 

39. Bin-Copy 

6/89 

40. CPC Selektor 

6/89 

41. Vier gewinnt 

6/89 

42. Madwork 

6/89 

43. Tilgungsberechnung 

7/89 

44. Adreßverwaltung 

7/89 

45. Quadratische Gleichungen 

7/89 

46. Interpolation 

7/89 

47. Schreibtrainer 

7/89 

48. DATA-Hexe 

7/89 

49. Gummi 

8/89 

50. Tauschen 

8/89 

51. Keytrans 

8/89 

52. Zoom 

8/89 

53. List 

8/89 

54. Kreis 

8/89 

55. Dirstart 

9/89 

56. Hyper-Hardcopy 

9/89 

57. Reaktionstest 

9/89 

58. Hypnotische Grafiken 

9/89 

59. Baum des Pythagoras 

9/89 

60. Delcode 

9/89 

61. Flying Jack 

10/89 

62. Programm-Vergleich 

10/89 

63. Silbentrennung 

10/89 
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»Einzelheft-/Databox-Bestellung« 

Ich bestelle folgende Einzelhefte bzw. Databoxen von »PC Amstrad«: 


Einzelheft 

Ausgabe 

6,- DM/Stck 

CPC 
Kassette 
14,- DM/Stck, 

CPC 

3“-Diskette 
24.- DM/Stck. 

Joyce 
3“-Diskette 
24.- DM/Stck. 

PC 1512 

51/4“-Diskette 
24,- DM/Stck. 

□ 

1/88 

□ 

□ 

□ 

□ 

□ 

2/88 

□ 

□ 

□ 

□ 

□ 

3/88 

□ 

□ 

□ 

□ 

□ 

4/88 

□ 

□ 

□ 

□ 

□ 

5/88 

□ 

□ 

□ 

□ 

□ 

6/88 

□ 

□ 

□ 

□ 

□ 

7/88 

□ 

□ 

□ 


□ 

8/88 

□ 

□ 

□ 


□ 

9/88 

□ 

□ 

□ 

□ 

□ 

10/88 

□ 

□ 

□ 

□ 

□ 

11/88 

□ 

□ 

□ 

□ 

— 

12/88 

□ 

□ 

□ 

□ 

n 

1/89 

□ 

□ 

□ 

□ 


2/89 

□ 

□ 

□ 

□ 

□ 

3/89 

□ 

□ 

□ 

□ 

□ 

4/89 

□ 

□ 

□ 

□ 

□ 

5/89 

□ 

□ 

□ 

□ 

□ 

6/89 

□ 

□ 

□ 

□ 

□ 

7/89 

□ 

□ 

□ 

□ 

□ 

8/89 

□ 

□ 

□ 

□ 

□ 

9/89 

□ 

□ 

□ 

□ 

□ 

10/89 

□ 

□ 

□ 

□ 

□ 

11/89 

□ 

□ 

□ 

□ 

□ 

12/89 

□ 

□ 

□ 


□ 

1/90 

□ 

□ 

□ 


□ 

2/90 

□ 

□ 

□ 

□ 

□ 

3/90 

□ 

□ 

□ 

□ 

□ 

4/90 

□ 

□ 

□ 

□ 

— 

5/90 

□ 

rn 

□ 

□ 


CPC-Sonderhefte: 


312 □ Sonderheft 6/88 

313 □ Sonderheft 7/88 
3136 □ Sonderheft 8/89 


Sammelordner PC 


□ Best.-Nr. 531 .. 

+ Porto/Verpackung 

(Inland 4, - DM, Ausland 6, - DM) 


14,- DM 
14,- DM 
14,- DM 


2Stck. 15,80 DM 


Gesamtbetrag: 


DM 
. DM 
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64. ZMON 10/89 

65. Graphik 10/89 

66. Remark-Vernichter 10/89 

67. DimmerScript 11/89 

68. Raff 11/89 

69. Ringkampf 11/89 

70. Base 2014 11/89 


71. Flying Stripes 

72. Catch It 

73. Apfelmännchen 

74. Laufschrift 

75. Streifen-Script 

76. Speedy Letters 

77. Zeichensätze 

78. Cat-Lösch-Service 

79. Slide 

80. Sterne 


11/89 

11/89 

12/89 

12/89 

12/89 

12/89 

12/89 

12/89 

1/90 

1/90 


81. Speerwurf 1/90 

82. Hürdenlauf 1/90 

83. Misthaufen 1/90 

84. Biorhythmus 1/90 

85. Multicolor 2/90 

86. Sternengrafiken 2/90 

87. Inker 2/90 

88. Mini-Screen 2/90 

89. Fast-Clear 2/90 

90. Casino 2/90 


91. Wortsuche 3/90 

92. Windows 3/90 

93. Disc-Adresse 3/90 

94. Softlyse 3/90 

95. Blutalkohol-Berechnungsprogramm 3/90 

96. Joytest 4/90 

97. Tetris 4/90 

98. Zielwurf 4/90 

99. Bouncing Ball 4/90 

100. MicroCopy 4/90 


101. Bin-King 4/90 

Die Titel sind genannt, die Wahl liegt nun bei Ihnen. Be¬ 
schließen wir damit das Thema Wahl und befassen uns nun 
mit den Programmen, die die zweite Serie ä 101 Programme 
einläuten. 



Bild I; Schach in I kByte! Alles geht, wenn man nur will 



Schach 

Nun werden Sie sicher sagen, daß 
wir ein wenig übertreiben. Andere 
bauen ganze Computer, nur um 
den Maschinen die englische Eröff¬ 
nung mit Läufer-Fianchetto auf dem Da¬ 
menflügel beizubringen, und die PC Amstrad 
bringt ein 1 kByte langes Schachprogramm zum Ab¬ 
tippen! 

Zugegeben, unser Programm wird nicht in der Lage sein, den 
guten Kasparow zu schlagen, auch wird es Schwierigkeiten 
haben, eigene Ideen zu entwickeln, aber dafür wird dem Be¬ 
nutzerein voll funktionsfähiges Schachbrett mit komfortabler 
Eingabemöglichkeit der Züge geboten. Das Programm im 
einzelnen: 

Nach dem Starten wird ein Schachbrett gezeichnet. In der lin¬ 
ken oberen Ecke des Screens erscheint daraufhin ein Frage¬ 
zeichen. Hier gilt es nun, die Züge einzutragen. Dazu geben 
Sie die Koordinaten des Ausgangsfeldes und die des Zielfel¬ 
des ein. Dabei ist zu beachten, daß die Buchstaben klein ge¬ 
schrieben werden müssen und daß zwischen den Feldnamen 
ein beliebiges Zeichen zu stehen hat. 

Beispiel: a2—a4 / d2.d3 / e2 #e4 

Bei den “Sonderzügen" Rochade und en passant muß selbst 
Hand angelegt werden. Eine Rochade beginnt mit dem Zug 
des Königs, worauf im zweiten Zug der Turm gesetzt werden 
muß. Schlägt man en passant, so muß zunächst der gegneri¬ 
sche Bauer geschlagen werden, bevor man den eigenen zu¬ 
sätzlich ein Feld voranzieht. 

Einige Einschränkungen mußten aufgrund der maximalen 
Länge von 1 kByte natürlich gemacht werden. So ist es leider 
nicht möglich, einen Zug zurückzunehmen. Auch das Um¬ 
tauschen eines Bauern auf der Grundlinie gegen eine andere 
Figur beherrscht das Programm noch nicht. 

Bei den Figuren wurden die Zeichen 200 bis 206 benutzt, wo¬ 
bei das Zeichen 200 den Sockel bildet, der bei allen Schachfi¬ 
guren gleich ist. Die anderen Zeichen enthalten die Oberteile 
von der Dame bis zum Bauern. Die Symboldefinition ist sehr 
unübersichtlich, aber enorm platzsparend programmiert. 

Es bleibt anzumerken: Sieben Zeilen BASIC-Listing = ein 
Schachprogramm, da wird sich der Mephisto in Zukunft 
warm anziehen dürfen... 

(Erik Reinsch/jf) 


ASCII-Codierer 

Seit dem Tag, an dem es mehr als zwei Menschen gab — die 
genaue Datierung fällt in diesem Falle recht schwer — versu¬ 
chen stets zwei dieser denkenden Lebewesen einen anderen 
aus irgend etwas herauszuhalten. Geheimnismauschelei 
nennt man dieses Phänomen, das sich direkt proportional zur 
Anzahl der tuschelnden Menschen verhält. 

Als die ersten Denker zur Übermittlung ihres geistigen Gutes 
die Schrift erfanden, waren natürlich gleich eine ganze Reihe 
von Personen bemüht, ihre schriftlichen Ergüsse nur 
bestimmten Lesefähigen zukommen zu lassen. So 
begann das Ersinnen von Möglichkeiten, ei¬ 
nen leserlichen Text derart zu verunstal¬ 
ten. daß ihn nur noch jemand mit ent¬ 
sprechenden Zusatzinformationen 
in leserliches Gut verwandeln k 
te; das Codieren war ins Leben 
fen worden. 
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Kommen wir zum dritten existenziellen 
historischen Ereignis, dem Bau des 
ersten CPCs. Nun gab es also mehr 
zwei Menschen, die schreiben 
konnten, einen Code, der alles unleserlich 
gestaltete, und letztlich einen CPC, der die Ar¬ 
beit des Codierens und Decodierens übernehmen 
konnte. 


Was fehlt, ist ein Programm, das diese Arbeit zu übernehmen 
in der Lage ist. 1 kByte sollte dafür ausreichen; der ASCII- 
Codierer erfüllt alle Voraussetzungen. 

Der Text, den man codieren möchte, muß in Form einer 
ASCII-Datei auf Diskette vorliegen. Laden Sie nun unser 
Programm, und starten Sie es. Zunächst wird ein Codie¬ 
rungsfaktor abgefragt. Dieser bestimmt, um wie viele Zei¬ 
chen jeder Buchstabe nachher erweitert wird. 

Beispiel: 

— Ist der Codierungsfaktor 3, so bedeutet das, daß jedes A im 
Text zu einem D wird, jedes B zu einem E, jedes G zu einem 
J und so fort. 

— Theoretisch sind beliebig hohe oder auch negative Werte 
als Codierungsfaktor zulässig. Das hängt von zwei Punkten 
ab: 

1. der zur Texterstellung benutzte Textverarbeitung 

2. den verwendeten Zeichen 

Werden beispielsweise bei Tasword Zeichen mit niedrigen 
ASCII-Werten benutzt (#!“), so darf der Codierungsfaktor 
nicht im Minusbereich liegen. 

Damit die zur Unkenntlichkeit verwandelten Texte auch bei¬ 
zeiten wieder gelesen werden können, stellt das Programm 
zwei Dienste zur Verfügung, zwischen denen nach Eingabe 
des Codierungsfaktors gewählt werden kann: Decodieren und 
Codieren. 

Der codierte Text wird über die alte Datei geschrieben. Da¬ 
durch ist es nicht mehr möglich, an die alten Daten heranzu¬ 
kommen. Wer also ein wichtiges Dokument mit diesem Pro¬ 
gramm chiffriert und den Code vergißt, der wird reichlich 
Arbeit mit der Wiederherstellung seiner Daten bekommen. 

(Mark Schrödter/jf) 


Star 


Da bekanntlich das Auge immer mitißt und verwöhnt werden 
will, kann man besonders am Computer nie genug von gelun¬ 
genen Grafikdemonstrationen bekommen. In unserer 
1-kByte-Rubrik haben wir Sie schon des öfteren mit Au- 
genschmausen besonderer Art bedacht. Auch in dieser Aus¬ 
gabe wollen wir Ihnen einen visuellen Leckerbissen nicht 
vorenthalten. 

Es handelt sich dabei nach bewährter Art um ein vielschichti¬ 
ges Programm, das bei Eingabe verschiedener Werte sehr un¬ 
terschiedliche Grafiken erstellt und diese nach Beendigung 
der Zeichenarbeit durch Farbwechsel animiert. 



Nach dem Start des Programms werden Sie aufgefordert, ei¬ 
nige Werte einzugeben, worauf das Programm sternenför- 
mige Objekte zu zeichnen beginnt. Ist ein Werk 
beendet, so können Sie durch Drücken der 
Leertaste weitere Werte ausprobie¬ 
ren. Um Ihnen einige Anregungen 
zu geben, haben wir eine Liste mit 
Eingaben erstellt, die zu sehenswer¬ 
ten Bildern führt. Entnehmen Sie 
diese Werte der aufgeführten Box. 


Stufe 

Stufe2 

Größe 

Größe2 

Größe3 

15 

30 

60 

120 

75 

45 

45 

200 

100 

80 

60 

90 

10 

200 

50 

72 

90 

10 

200 

50 

36 

60 

160 

150 

40 

180 

90 

20 

190 

80 

120 

20 

20 

190 

80 

90 

20 

20 

190 

80 

72 

10 

100 

100 

100 

12 

47 

100 

100 

100 

60 

90 

40 

60 

150 

18 

90 

50 

70 

130 

6 

90 

100 

80 

120 


(Oliver Mueller/jf) 


Unkrauts Exitus 

Wer im Besitz eines Ziergartens ist, dem werden Begebenhei¬ 
ten wie das Frische-Luft-Schnappen eines Maulwurfs oder 
das Wettwachsen optisch nicht viel hermachender Gestrüppe 
zur Weißglut bringen. Diese mit Blickrichtung auf den Um¬ 
weltschutz positiven naturellen Aktionen trüben meist das 
Auge allzu ästhetisch veranlagter Gärtner, so daß es oft zu tät¬ 
lichen Auseinandersetzungen zwischen Gartenbesitzer und 
-bewohnern kommt. 

Gleiches Schicksal widerfuhr dem Hobbygärtner Franz, der 
durch zu liebevolles Gülledüngen eine bis dahin nicht ge¬ 
kannte Schlingpflanzenart zum Wachsen animierte. Sie 
sprießt nun in seinem Garten vor sich hin. und der gute Franz 
hat alle Mühe, der Rankenpracht Herr zu werden. Sein Glück 
ist, daß die Schlingpflanzen wie der Suppenkasper eine arge 
Antipathie gegen fette Brühe hegen. So bewaffnet sich Franz 
mit einem Kübel Brühe und zieht, das Horn blasend, zu 
Felde. 

In unserem 1-kByte-Programm übernehmen Sie Franzens Rolle 
und haben die Aufgabe, die sprießenden Ranken mit einer or¬ 
dentlichen Portion Suppe zu bändigen. Mil den Tasten ’Z' 
und ’X‘ steuern Sie den am oberen Bildschirmrand befindli¬ 
chen Eimer nach links beziehungsweise nach rechts. Die 
Leertaste dient dazu, das Behältnis zu leeren. Da die Pflanzen 
nicht müde werden und fröhlich vor sich hin wachsen, ist Ih- 



Bili't f eile Brühe auf <Ue Ranken. Bei Unkrauts Exitus uelu es ans Eintic 
marine 
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CPC-ANWENDUNG 


ConText 


CPC 


Autor: Matthias Uphoff 


Damit das Schreiben wieder Spaß macht 

Der Klassiker: 

ConText CPC - bis heute ungeschlagen in der Gruppe der Textverarbeitungen, 
Dieses Programm besticht vor allem durch seine leichte Anwendungsweise, die 
selbst unerfahrenen Computerbesitzern den Umgang mit einer Textverarbeitung 
möglich macht. 

ConText CPC - das heißt: 

Einfachste Bedienung durch logische Tastaturbelegung; alle Funktionen sind über 
die Control- und eine definierte Taste zu erreichen, 

Funktionen wie EINFÜGEN, FLIESSTEXT, BLOCKFORMATIERUNG und KOPIE¬ 
REN sind über Tastendruck aufrufbar und werden in einer Statuszeile angezeigt. 
Mehrspaltiges Schreiben und Textkopieren erleichtern Ihnen die Korrespondenz, 

25 KByte Textspeicher mit Insgesamt 5 DIN-A4-Seiten, damit Sie auch iange Briefe 
problemlos erstellen können. 

Voreingestellt für die meisten CENTRONICS-Drucker, durch übersichtliche 
Tabellenprogrammierung anpaßbar an viele EPSON-kompatible Drucker. 
Weiterschreiben während des Drückens, denn 'time is money’. 

Darstellung von Sonderschriften wie VERGRÖSSERN und UNTERSTREICHEN, 
Anzeigen von anderen Schriftarten durch Steuerzeichen. 

Auf Diskette / Kassette gespeicherte Textbausteine sind überall im Text plazierbar. 
Eingebauter Taschenrechner und Kalender, damit Sie den Überblick behalten. 

Dies sind nur einige der Möglichkeiten, die ConText Ihnen als Textverarbeitung 
bietet. 

Der benötigte Hardware-Aufwand ist gering. 

Sie brauchen nur einen CPC 464 / 664 oder 6128 und einen Drucker. Alles andere erklärt 
Ihnen die ausführliche deutsche Bedienungsanleitung, die dem Programm beiliegt. 


Und wo gibt’s ConText CPC ? 

Bei DMV zu bestellen als 

3“-Diskette 


TurbO-DATA-CPC 

Volldampf in der Dateiverwaltung 

Brauchen Sie ein neues Adreßbuch oder Telefonverzeichnis? 
Müssen Sie Ihre Sammlungen von Briefmarken, Schallplatten, 

Dias oder anderen Schätzen sortieren? Alles kein Problem, wenn 
Sie für Ihren CPC eine universelle Dateiverwaltung haben, und die 
gibt's jetzt beim DMV: 

Turbo-DATA-CPC ist die universelle Dateiverwaltung 
für jede Gelegenheit, mit der Sie problemlos Über¬ 
blick und Ordnung in alle Ihre Daten bringen kön¬ 
nen. Dabei helfen Ihnen die vielfältigen Funktionen 
von Turbo-DATA-CPC: 

- Universell durch veränderbare Ein- und Ausgabemasken 

- Blitzschnelle Suchfunktionen durch Indexfelder 

- Dateikapazität bis maximal 80 verschiedene Felder 

- Bis zu 19 Felder gleichzeitig auf dem Bildschirm sichtbar 

- Besonders schnelle und umfangreiche Sortierfunktion 

- Eigene Formatierroutine mit extrem hoher Kapazität 

- Zweiteilung des Bildschirms in Status- und Arbeitsfeld 

- Deutscher Zeichensatz und deutsche Tastaturbelegung 

- Komplette Druckroutinen, auch für Etikettendruck 

Hardwarevoraussetzung: CPC 464/664/6128 
mit einem Diskettenlaufwerk 

Ganz gleich, was Sie zu archivieren haben, Turbo-DATA-CPC ist 
in jedem Fall die richtige Wahl. 


59,- DM* 


DM 69,- 


Copyshop 


Das universelle Hardcopy-Programm 
für CPC 464/664/6128 
Autor: Matthias Uphoff 



Copyshop im Detail: 

- Hardcopy in 4 (!) Formaten: DIN A4, DIN A5, 13,5x8,5 cm und 21,5 x 
13,5 cm - superschnelle Hardcopy-Routine: DIN A4 in ca. 4 Minuten (DMP 
4000) - arbeitet in allen drei Modes - Anpaßmenü für JEDEN Epson- 
kompatiblen Drucker - läuft ebenfalls mit den Seikosha-Druckern GP-500 
CPC, GP-550 CPC und GP-1000 CPC - Anpassung an Drucker möglich, 
die mit 1280 Punkten pro Zeile arbeiten, z.B. CPA-80 GS - Okimate ML 182 

- Anpassung kann beim Verlag angefordert werden - Anpassung auch 
für Drucker möglich, die die Bitbild-Bytes verkehrt herum drucken (das MSB 
unten statt oben), z.B. NEC P2-Pinwriter. - 32 Farbraster über Menü wähl¬ 
bar - Grafikeditor - komfortable Pulldown-Menüs - Schnelle Fill-Routine 

- beliebige Ausschnittvergrößerungen - Bildschirm invertieren - selbst- 
relozierende Hardcopy-Routinen für eigene Programme - neue Save- und 
Load-Routinen erkennen automatisch Mode und Farbwerte - Freezer - 
saved auf Tastendruck Screenshots aus laufenden BASIC-Programmen. 
die anschließend ausgedruckt werden können. 

Und die Weltneuheit: Hardcopy-Simulalion auf dem Bildschirm! 

Sie können sich Ihre Hardcopy vor dem endgültigen Ausdruck auf dem Bildschirm ansehenl 


3“-Diskette 


49,- DM* 


SPEC/Ai OEEERs! 

für CPC 464-664-6128, nur auf 3“- Disketten 

Original CPC-Software im Paket 
zu stark herabgesetzten Preisen 

DISKSORT-STAR 

Leistungsstarke Diskettenverwaltung, die keinem CPC- 
Benutzer fehlen sollte. DISKSORT-STAR verwaltet, archiviert, 
katalogisiert, druckt,... Ihre Diskettensammlung auf einfachste 
Weise. Neben der reinen Diskettenverwaltung ist unter ande¬ 
rem noch ein kompletter Diskettenmanager enthalten. Auch in 
puncto Bedienungskomfort ist DISKSORT-STAR kaum zu 
schlagen. 

STAR-MON 

Das Entwicklungssystem für Profis 

• Assembler • Editor • Disassembler 

• Monitor • vier Breakpoints • Trace- 
Funktion • Bankswitch • Memory 

v v LA Dump • Diskettenmonitor • u.v.m. 


Jt CREATOR-STAR 

No. 2 3- Ein Trickfilmdesigner für alle Hobby- 

ÄffiEr* regisseure auf dem CPC! 

aA • Sprite-Designer • Laufschrift • Utili- 

V ties • Kulissendesigner • Sprites mit 4 

Unterpositionen • Verbinden von Sprites 
• Kulissen auch übereinandergelegt • 
r\ h m rA * Eigene Programmiersprache mit Editor 
Um Oi/j “ und Compiler 

DESIGNER-STAR 

Grafikprogramm, mit dem man Bildschirmgrafiken komfortabel 
erstellen kann. Hilfsmenü auf Tastendruck - kein Joystick oder 
Maus notwendig. 


* Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 4,- DM bzw. für das Ausland 6,- DM Porto und Verpackung 

Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag - Postfach 250 - 3440 Eschwege 
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: 



nen viel Arbeit gewiß. Sollte es eine der 
Ranken schaffen, den oberen Bild¬ 
schirmrand zu berühren, so gehl Ih¬ 
nen die Suppe aus, und Sie sind Ihren 
Garten los. Für jede erlegte Planze gibt es 
im übrigen Punkte, die in der unteren Ecke 
cingeblendet werden. 

(Michael Schaller/jf) 


Adreß-Etiketten 

Zu den weniger spektakulären, dafür um so nützlicheren 
1-kByte-Programmen zählt das vorliegende Adreß-Etiket- 
ten-Programm. mit dessen Hilfe auf einfachste Weise bis zu 
sechs Zeilen lange Adreßaufkleber gedruckt werden können, 
die den eigenen Absender in schmaler Schrift enthalten. 
Nach dem Start gelangen Sie in ein Menü, in dem Sie ihre 
Wahl treffen können: 

— Eingabe der Adresse 

Hier werden Sie aufgefordert, eine sechs Zeilen lange Adres¬ 
se einzugeben, wobei natürlich jede Zeile auch als Leerzeile 
genutzt werden kann. Nach Beendigung der Eingabe gelan¬ 
gen Sie zurück ins Hauptmenü. 

- Ausdruck des Etiketts 

Die momentan im Speicher befindlichen Daten werden auf 
dem Drucker ausgegeben. 

- Abspeichern der Adresse 

Es kann immer nur ein Datensatz abgespeichert werden. Zum 
besseren Wiederfinden der einzelnen Adressen empfiehlt es 
sich, die Nachnamen als Dateinamen zu verwenden. 

— Laden einer Adresse 

Jede gesicherte Adresse kann in diesem Meniipunkt vom Da¬ 
tenträger eingelesen werden, wobei der aktuelle Datensatz 
verlorengeht. 

Ferner ist zu beachten, daß zu den Adressen ein beliebiger 
Absender auf den Etiketten ausgedruckt werden kann. Dieser 
Absender befindet sich in der Variablen adr$ und kann in Zei¬ 
le 120 individuell eingesetzt werden. 

(Josef Hämmerlc/jf) 


Gummi-Enten versenken 

Tatort: Badewanne - Tatzeit: Samstag nachmittag. 

Wie aus gut unterrichteten Kreisen verlautet, kam es am 
Samstag nachmittag zu einer Unglaublichkeit sonderglei¬ 
chen. Eine friedlich im Schaumbad herumplanschende Gum¬ 
mi-Ente (Farbe: gelb, Kleidung: keine) wurde durch ein of¬ 


fensichtlich gezielt geworfenes Stück Seite derart heftig am 
Gefieder getroffen, daß sie vor Schreck das Köpfchen in das 
Wasser und das Schwänzchen in die Höh' streckte und sich 
vor weiteren Angriffen gerade noch in Sicherheit paddeln 
konnte. Der Täter wurde nach wilder Verfolgungsjagd gestellt 
und mit einem Extrabad bestraft. 

Geben Sie es ruhig zu. Sie werden nicht die Spur von Anteil¬ 
nahme am Schicksal der gelben Quietsche-Ente gefunden ha¬ 
ben. Steckt nicht in jedem von uns ein Sadist, wenn es um das 
Versenken von Gummi-Enten in die Tiefen von Schaumbä¬ 
dern geht? 

Da es aber aufgrund von drohendem Ölmangel nicht mehr 
allzu lange dauern wird, bis auch Gummi-Enten unter das Ar¬ 
tenschutzgesetz fallen, sollten Sie sich in weiser Voraussicht 
dieses 1-kByte-Programm in den Speicher schreiben. 

Es führt Sie in eine Badewanne. Ein dort paddelnder Gummi¬ 
vogel wartet förmlich darauf, von Ihnen versenkt zu werden. 
Mittels Joystick können Sie den Wurfwinkel einstellen, der 
zwischen 45 und 85 Grad liegen darf. Dann drücken Sie die 
Feuertaste, und in hohem Bogen segelt die Seife über die Wo¬ 
gen. Trifft sie die Ente, so verzieht sich diese in die Tiefen der 
Badewanne, und sie bekommen einen Bonuspunkt. 

(Holger Leskien/jf) 


Die Bedingungen 

Hier die Bedingungen unseres Wettbewerbs: Wir suchen 
komplette Programme (bitte ohne Steuerzeichen!), die 
funktionsfähig möglichst auf allen drei CPCs lauten (was 
nicht heißen soll, daß wir bei besonders guten keine Aus¬ 
nahme machen) und die nicht länger als 1 kBytc sind (An¬ 
zeige auf dem Datenträger gilt!). Der Preis für solche 
Programme beträgt 100,- DM. Senden Sie uns Ihre Wer¬ 
ke, maximal zwei (!) Programme mit Programmbeschrei¬ 
bung (möglichst in ASCII-Form), zusammen auf einem 
Datenträger (Diskette/Kassette) zu, und zwar an den: 

DMV-Verlag 

Redaktion PC International 
Postfach 250 
Stichwort 100,— DM 
3440 Lschwege 


für 464-664-6128 

1 

1 SYMBOL AFTER 200:FOR a=0 TO 69:PRINT CHR [12351] 
$(VAL("&"+MID$("19C824244224244281FF19C900 
00003C4281814219CA00005A664242424219CB0816 
21716911224219CC00181C6E9589814219CD009999 

E78142242419CE183C990BA5814242",l+a*2,2))) 

;:NEXT 

2 MODE 1:INK 2,10:TAG:DIM f(8,8):WINDOW#1, [4103] 

2,8,5,6:DAT A 2,3,4,5,6,4,3,2 


3 FOR u=l TO 8: READ c: f(u,1)=c:f( u ,8)=-c:f [15776] 
(u,2)=l:f(u,7 )=-l:FOR j=0 TO 8:MOVE j*44+2 

86,0:DRAWR 0,320:MOVER 14,18:PRINT CHR$(65 
+j );:MOVE 638,j*40: DRAWR- 352,0: MOV ER-50,-1 
5: PRINT j;:k=u:p=j:GOSUB 5:NEXT j.u 

4 INPUT#l,a$:u= ASC(a$)-96:j=VAL(MID$(a$,2, [6153] 

1)): k=ASC(MID$(a$,4,1))-9 6: p=VAL(RIGHTS(a$ 

,1 )):GOSUB 5:GOTO 4 

5 z=f (u,j):r=32:t=0:GOSUB 7:IF z THEN f(u, [6539] 
j)=0:f(k,p)=z:u=k:j=p:r=200:t=SGN(z):GOSUB 

7:MOVER-5,-9:F ILL t+1 

6 RETURN [555] 

7 MOVE 254+u*44,j * 40-20: PRINT CHR$(r);:MOV [5743] 
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ER-16,16:PRINT CHR$(r+t*z);:FILL 0:FILL((u 
+ j ) MOD 2)*2:RETURN 

Listing Schach 


10 1 ASCII-Codlerer 

[1157] 

20 DIM zei1e$(1000) 

[604] 

30 MODE 2 

[513] 

40 PRINT"ASCII-CODIERER":PRINT 

[2470] 

50 INPUT"Codlerungsfaktor ? ",cf 

[2334] 

60 INPUT"[C]od1eren oder [D]ecodieren ? ", 

a$ 

[2500] 

70 IF a$="c"THEN cf = cf ELSE cf = -cf 

[2278] 

80 * Laden 

[384] 

90 CAT 

[96] 

100 PRINT:INPUT"Dateiname: ",n$ 

[1144] 

110 OPEN IN"" + n$ 

[ 593] 

120 WHILE NOT EOF:n=n+l 

[2353] 

130 LINE INPUT#9,zei1e$(n) 

[2369] 

140 WEND 

[ 390] 

150 CLOSEIN 

1 752] 

160 'Codieren/Decodieren 

[1109] 

170 GOSUB 340 

[976] 

180 FOR x =1 TO n 

[692] 

190 IF LENCzei1e$(x))<=0 THEN 240 

[1560] 

200 FOR a=1 TO LEN(zei1e$(x)) 

[1091] 

210 a$=MID$(zei1e$(x),a,1) 

[1398] 

220 MID$(ze11e$(x),a,1)=CHR$(ASC(a$)+cf) 

[ 1940] 

230 NEXT a 

[ 383] 

240 NEXT x 

[356] 

250 'Speichern 

[428] 

260 GOSUB 340 

[976] 

270 PRINT CHR$(7) ; "Fertig zum Abspeichern 
?": CALL &BB06 

[4700] 

280 IERA,n$ 

[984] 

290 OPENOUT "" +n$ 

[ 776 ] 

300 FOR 1 = 1 TO n : PRINT#9.zei1e$< 1 ):NEXT 

( 1149 ] 

310 CLOSEOUT 

[ 902 ] 

320 END 

[110] 

330 'Text anzeigen 

[1836] 

340 CLS:PRINT CHR$(24) ; "Ihr Text :“; CHR$ ( 24 

[2697] 

) 

350 FOR 1 = 1 TO n: PRINT ze 1T e$ (1 ) : NEXT 

[1750] 

360 IF x < n THEN PRINT CHR$(24) ; "Bitte Wart 
en! "; CHR$ ( 24 ) 

[3166] 

370 RETURN 

Listing ASCII-Codierer 

[ 555 ] 

10 INK 0,0:BORDER 0:INK 1,26:INK 2,15:INK 

3,6:MODE 1 

[2315] 

20 DEG 

[133] 

30 CLS:INPUT"Stufe :",q 

[ 859 ] 

40 INPUT"Stufe2 :" ,q2 

[ 1021 ] 

50 IF q < 1 THEN q=l 

[ 827] 

60 INPUT"Groesse :",rad1us 

[ 1533] 

70 IF radius<10 THEN radius=10 

[1873] 

80 INPUT"Groesse2:",radl us2 

[ 1392 ] 

90 INPUT"Groesse3:",radl us3 

[1454] 

100 CLS 

[91] 

110 FOR a=-10 TO 350 STEP q 

[1862] 

120 REM MOVE 320+radius*COS(a),200+radius 
•SIN(a) 

[2769] 

130 FOR b=0 TO 360 STEP q2 

[1489] 

140 f=f+l:IF f=4 THEN f=l 

[855] 

150 PLOT (320+radius*COS(a))+radius3*COS 

(b),(200+rad1us*SIN(a))+rad1us3*SIN(b),f 

[4413] 

160 DRAW 320,200 

[513] 

170 PLOT (320+radius*COS(a)) + r ad 1u s3*COS 

(b),(200+radius*SIN(a)) + radius3*SIN(b) : 

[4343] 

180 DRAW 320+(radius2)»COS(a),200+(radiu 

s2)»SIN(a) 

[1040] 

190 NEXT b 

[ 378] 

200 f=0 

[ 392 ] 

210 NEXT a 

[383] 

220 a$=INKEY$ 

[278 ] 

230 IF a$=" " THEN 270 

[ 684 ] 

240 f = f+l:IF f=10 THEN f=1 : 

[ 2205 ] 

245 SOUND 1,0,10,0 

[1179] 

250 INK 1,f:INK 2,f+l:INK 3,f+2 

[ 1092 ] 

260 GOTO 220 

[425] 

270 RUN 

Listing Star 

[243] 

10 MODE 1:INK 0,13:INK 1,3:INK 2,9:INK 3,2 
6:BORDER 13:SYMB0L AFTER 246:PAPER 3:WINDO 
W 10,31,8,21:CLS:PAPER 0:WIND0W 11,30,9,20 
: CLS 

[8199 ] 

20 FOR a=247 TO 255:READ b,c,d,e,f,g,h,i:S 
YMBOL a,b,c,d,e,f,g,h,1:NEXT:DATA 255,255, 

[11161 ] 


94,94,94,44,44,60,0,0,60,195.129,102.126,6 

0,82,68,145,37,164,130,10,40,0,0,0,0,16,28 

,28,56,0,0,48,30,24,30,126,56,24,48,241,62 

,25,223,254,120 

30 DATA 0,0,0,0,8,62,12,24,0,16,24,12,110, [3491] 

60,12,24,120,30,24,205,238,124,12,24 

40 01M h(20 ), g(20):p=10:pl = l:sc=0:LOCATE 1 [4325] 

,12:PRINT STRING$(20,127) ; 

50 FOR m=0 TO sc/90:FOR a=l TO 3:x=INT(RND [9313] 
*20)+l:IF (h(x)=252) OR (h(x)=255) THEN g( 

X ) =0(x ) + 1: h(x )=0 ELSE IF h(x) =0 THEN h(x) = 
250+3*INT(RND*2) ELSE h(x)=h(x)+l 

60 IF g(x) = 1 0 THEN GOTO 100 ELSE LOCATE x. [10004] 
11-g(x):PEN 2: PRINT CHR$(h(x )): NEXT:PEN 1: 

IF plOp THEN LOCATE p,l:PRINT CHR$(247):L 
OCATE pl, 1: PRINT" " 

70 NEXT:a$=INKEY$: j =JOY(0):pl = p: p=p+(a$=" z [3812] 

" AND p>1)-(a$="x" ANO p<20) 

80 IF a$= 11 " OR J = 16 THEN LOCATE p,l:PRINT [ 12486] 
CHR$(248):PEN 3: FOR a=2 TO 11:L0CATE p,a: 

PFMNT CHR$(249):NEXT: FOR a = 2 TO 11: LOCATE 
p,a:PRINT" ":NEXT :sc=sc+g(p):g(p)=0:h(p)=0 
:LOCATE 1,12:PAPER 1:PEN 3:PRINT sc:PAPER 
0: PEN 2 

90 GOTO 50 [384] 

100 PEN RN0*4:LOCATE 6,6: PR INT"GAME OVER" [2523] 

:GOTO 100 


Listing Unkrauts Exitus 


10 CALL &BB4E:MODE 2:PRINT" Eingeben < 

< 1 > >":PRI NT" Ausdrucken << 2 >>":PRINT 
" Abspeichern << 3 >>":PRINT” Laden 
< < 4 > > " 

20 LOCATE 5,21:PRINT"Bitte waehlen Sie !!" 

:ant$=INKEY$:IF ant$="" THEN 20 

30 IF ant$="l" THEN 70 

40 IF ant$="2" THEN 120 

50 IF ant$ ="3" THEN 90 

60 IF ant$="4" THEN 100 

70 WINDOW #1,10,46,5,20:PAPER #1,13:PEN #1 
,0:CLS #1:LOCATE #1,1,1:PRINT#1,"Max. 6 Ze 
11en mit a' 25 Zeichen" 

80 FOR 1 = 1 TO 6:LOCATE # 1 ,1, (2+i):PRINT#1, 
"Zeile ";1;:INPUT #1,a$(1):NEXT 1:GOTO 10 
90 CLS:LOCATE 10,12:INPUT"Dateinamen ";dat 
$:OPENOUT dat$:FOR 1=1 TO 6:WRITE #9,a$(1) 
:NEXT:CLOSEOUT:GOTO 10 

100 CLS:LOCATE 10,12:INPUT"Dateinamen ";da 
t$:OPENIN dat$:FOR 1=1 TO 6:INPUT #9,a$(1) 
:NEXT:CLOSEIN:GOTO 10 

120 CLS:adr$="DMV-Daten & Medien * Verlags 
GmbH * Postf. 250 * 3440 Eschwege" 

130 PRINT#8,CHR$(27)+"S"+CHR$(0):PRINT#8,T 
AB(2)adr$:PRINT#8,CHR$(27)+CHR$(64) 

140 PRINT#8,CHR$(27)+"x"+CHR$(1)+CHR$(27)+ 
"p"+CHR$(1)+CHR$(27)+"j"+CHR$(72):CLS:FOR 
1=1 TO 6:PRINT#8,TAB(4);a$(i):NEXT:GOTO 10 
Listing Adreß-Etiketten 


10 SYMBOL 240,8,28,248,9,15,31,15:SYMBOL 2 [13339] 
41,0,0,0,249,254,255,252:SYMBOL 242,63,127 
,255,255,127,63,1:SYMBOL 243,252,254,255,2 
55,254,252, 128'.SYMBOL 2 44,68,161,76,18,146 
,44,129:ENV 1,15,-1.10:MODE 1:BORDER 0:INK 
0,0:INK 1,26:INK 2,2:INK 3,24:t=0 
20 CLS:d=INT(RND*28)+4:w= 65:PEN 1:PRINT"GU [ 12530] 
MMIENTEN: t: LOCATE 2,25:PRINT CHR$'(242 )+C 

HR$(215)+STRING$(29,32)+CHR$(214)+CHR$(243 
) : PEN 3: LOCATE d,25:PRINT CHR$(240)+CHR$(2 


41):PLOT 48,0,2:DRAW 512,0 

30 PEN 1:LOCATE 1,2:PRI NT"WINKEL:";w [2122] 

40 IF INKEY(76) = 0 THEN 100 [597] 

50 IF INKEY(74)=0 THEN w=w-l [1137] 

60 IF INKEY(75)=0 THEN w=w+l [334] 

70 IF w<45 THEN w=45 [652] 

80 IF w > 8 5 THEN w = 85 [1495] 

90 GOTO 30 [340] 


100 SOUND 1,0,0,15 , 1,0,30:FOR 1=0 TO 100:x [11449] 
=INT(0.014*i»(90-w)):y=INT(1*(100-i)*0.017 
2 ):PLOT x»8,y*4+2, 1 :NEXT: IF x»8>d»16-16 AN 
D x» 8<d*1 6+14 THEN 110 ELSE SOUND 129,0,30 
, 10, 1, ,10:FOR i=0 TO 200:NEXT i:GOTO 20 
110 T AG:FOR 1 = 14 TO 0 STEP -2:PLOT d*16-16 [10100] 
, 1 , 3 : PRI NT CHR$-(240) +CHR$ (241); : PLOT d*16- 
8,1+2.OtSOUND 1,1*200,5,15:NEXT:TAGOF F: PEN 
1:LOCATE d,25:PRINT CHR$(2 44 ):PLOT 48,0,2 
:DRAW 512,0:t=t+l:FOR p=0 TO 1000: NEXT: GOT 
0 20 

Listing Gummi-Enten versenken 


[8117] 

[4096] 

[ 68 ] 

[69] 

[69] 

[531] 

[6289 ] 

[4184] 

[6673] 

[5642] 

[5361 ] 
[4977] 
[6645] 
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I Tips & Tricks 


Crazywriter 

Das völlig andere 
Brief Schreibesystem 

Schreiben Sie noch immer Ihre Briefe auf die herkömm¬ 
liche Art und Weise? Wenn ja, dann wird es Zeit, ein¬ 
mal eine andere Methode des Briefeschreibens auszu¬ 
probieren. Sie können aber auch einen Vorspann ent¬ 
wickeln, der dann völlig selbständig und auf witzige 
Weise Text oder andere Informationen auf dem Bild¬ 
schirm ausgibt. 


Nach dem Starten des Programms sehen Sie in der linken 
Ecke einen gelben Cursor, der sich durch die Cursor-Tasten 
steuern läßt. Der Editor akzeptiert nur Großbuchstaben; die 
Eingabe ist über die CAPSLOCK- oder die SHIFT-Taste 
möglich. 


Belegung der Tasten im Editor 


Es sind folgende Tasten belegt: 

COPY 

- Die Stiftfarbe wird auf Rot geschaltet. 

Kleine ENTER-Taste 

- Die Stiftfarbe wird auf Gelb geschaltet. 

Fl 

- Transparentmodus ein (zum Beispiel Unterstreichen) 

FO 

- Transparentmodus aus 

TAB 

- Sprung ins Hauptmenü 


für 464-664-6128 


10 

20 

REM 

REM 


= »- 

__ 

30 

REM 

= = 

BRILLOSOFT 

= = 

40 

REM 

= = 


= = 

50 

REM 

= = 

PRESENTS 

= = 

60 

REM 

= = 


= = 

70 

REM 

= = 

CRAZY-WRITER 

= - 

80 

REM 

= = 

V 2.2 

= = 

90 

REM 

= = 

Version fuer 6128 

= = 



100 REM 
110 ' 

120 '_VORSPANN_ 

130 ' 

140 a=&B7C4:REM cpc 464 a=&blc9 / 
cpc 664 a=&b7c4 ! 

150 FOR T = 0 TO 2 5 5:POKE a,t:PRINT" 

XT 

160 MODE 2:POKE 47043,1:INK 0,0:INK 1, 
ROER 0 

170 PRINT "OSOFT BRILLOSOFT BRILLOSOFT 
LLOSOFT B"; 

180 POKE 47043,2 

190 LOCATE 32,10:PRI NT"BRILLOSOFT" 

200 LOCATE 32,25:PRINT"==>KEV<== " 

210 INK 1,26:FOR N=1 TO 40:OUT &BC00,1 
&BD00,n:CALL &BD19:FOR A=1 TO 50:NEXT 
T 

220 CALL &BB18 
230 ' 

240 1 

250 1 _VOREINSTELLUNG_ 

260 1 
Llsting CRAZY 


" : NE 
0: BO 
BRI 


: OUT 
: NEX 


' 2173 ] 

[3653] 

[2868] 

[3653] 

[2826] 

[3653] 

[3964] 

[4028] 

[ 1848] 

[2173] 

[272] 

[117] 

[ 1645 ] 

[117] 

[2049] 

[3048] 

[3793] 

[2724] 

[ 556 ] 
[1370] 
[ 1672 ] 
[3951] 


[389] 

[117] 

[117] 

[1816] 

[117] 


Das Hauptinenü 

Folgende Punkte sind im Hauptmenü enthalten: 

1. Brief ansehen 

— Dient zur Betrachtung des “Werkes“. 

2. Brief abspeichern 

— Bei diesem Menüpunkt werden zwei Unterpunkte ange¬ 
sprochen: 

2.1 Name des späteren Vorspanns 

2.2 Ob der Brief später einmal vervollständigt werden soll 
(wenn ja, dann wird noch eine Extra-Datei angelegt). 

3. Weiter 

— Dieser Punkt wird angewählt, wenn ein Brief weiter bear¬ 
beitet werden soll. Dabei wird der ganze Brief nochmal 
durchlaufen, damit man sich besser einfinden kann. Die 
SPACE-Taste beschleunigt den Durchgang. 

4. Neuer Brief 

— Ein neuer Brief wird angelängen, der alte wird dabei ge¬ 
löscht. 

5. Brief laden 

— Dieser Punkt setzt voraus, daß der Brief unter Menüpunkt 

2.2 abgespeichert wurde. 

6. Brief löschen 

— Briefe, die sich auf der eingelegten Diskette befinden, 
können so gelöscht werden. 

7. Katalog 

— Zeigt das Inhaltsverzeichnis auf der Diskette. 

8. Basic 

— Rückkehr zum BASIC (Reset) 

Wichtige Hinweise: 

Der abgespeicherte Vorspann ist vollkommen selbständig 
lauffähig und kann normal mit RUN “xxxxx.BIN“ gestartet 
werden. 

(Sven Weggerhoff/cd) 


270 KEY 128,"“:KEY 129,"“:KEY 139,"" [2212] 

280 endad r=&3FFF [ 774] 

290 MODE 1:CALL &BC02:PAPER 0:PEN 1 [1999] 

300 CALL &BB81 [318] 

310 endadr=endadr+l [1049] 

320 1 [117] 

330 '_TASTATURABFRAGE_ [1469] 

340 1 [117] 

350 IF INKEY(1)< >-1 THEN POKE endadr,9:PRI [3901] 

NT CHR$(9);:endadr=endadr+l 

360 IF INKEY(2)< > — 1 THEN POKE endadr,10:PR [5049] 
INT CHR$(10);:endadr=endadr+l 

370 IF INKEY(0)< >-1 THEN POKE endadr,ll:PR [4889] 
INT CHR$(11);:endadr=endadr +1 

380 IF INKEY(8)< >-1 THEN POKE endadr,8:PRI [3700] 
NT CHR$(8);:endadr=endadr+1 

390 IF INKEY(9)0 — 1 THEN POKE endadr,15:en [4339] 
dadr=endadr+l:POKE endadr,3:PEN 3:endadr=e 
ndadr+1 

400 IF INKEY(6)0-1 THEN POKE endadr,15:en [4981] 
dadr=endadr+l:POKE endadr,l:PEN l:endadr=e 
ndad r+1 

410 IF INKEY(15)<>-1 THEN POKE endadr,22:e [5763] 
ndadr = endadr+l:POKE endadr,0:PRINT CHR$(22 
)CHR$(0);:endadr=endadr+l 

420 IF INKEYf 13)0-1 THEN POKE endadr,22:e [ 5847 ] 
ndadr = endadr+l:POKE endadr,1:PRINT CHR$(22 
)CHR$(1);:endadr=endadr+l 

430 IF INKEYt 18)0-1 THEN POKE endadr,13:e [6129] 
ndadr=endadr+l:POKE endadr,10:PRINT CHR$(1 
3)CHR$(10);:endadr=endadr+l 

440 IF INKEY(68 ) < >—1 THEN 520 [ 1209 ] 

450 a$=INKEY$:IF a$="" THEN 350 ELSE 460 [1687] 

460 IF ASC(a$)>96 THEN 350 [1746] 

470 POKE endadr,ASC(a$):endadr=endadr+l:PR [3024] 
INT a$;:GOTO 350 

480 GOTO 350 [470] 

Usiing CRAZY 
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490 




500 

' MENUE AUFBAUEN 


510 

’ 



520 

N" 

530 

PEN 1: 

CLS:PRINT" 

1. BRIEF SEHE 

PRINT" 

2.BRIEF 

ABSPEICHERN" 

540 

PRINT" 

3 . 

WEITER" 

550 

PRINT" 

4 . 

NEUER BRIEF" 

560 

PRINT" 

5 . 

BRIEF LADEN" 

570 

PRINT" 

6. BRIEF LOESCHEN" 

580 

PRINT" 

7. 

CATALOG" 

590 

PRINT" 

8 . 

BASIC" 

600 

wähl 

PRINT: 

PRINT:PRINT: 

:INPUT" WAHL 


610 ON wähl GOSUB 650,700,820,640,850,930, 
980,1050 
620 ’ 

630 '_BRIE F_SEHEN_ 

640 ' 

650 MODE 1:CALL &BB81:FOR a=&4000 TO endad 
r:PRINT CHR$(PEEK(a));:FOR c=l TO 50:NEXT: 
IF INKEY (47)0-1 THEN 520 ELSE NEXT 
660 GOTO 520 
670 ' 

680 ‘_BRIEF_ABSP£ICHERN_ 

690 ’ 

700 CLS: PRINT"Bri ef abspeichern'' 

710 PRINT:PRINT:INPUT "NAME DES BRIEFES =- 
> " ,name$:IF LEN(name$)>8 THEN 710 
720 PRINT:PRINT"Sol1 der Brief spaeter noc 
h einmal" 

730 INPUT “vervollstaendigt werden (j/n)=- 
>" ,absp$:absp$ = UPPER$(absp$) 

740 PRINT:PRINT"CREATING LETTER !" 

750 OPENOUT name$+".BIN":PRINT #9,"10 MEMO 
RY &3FFF:LOAD"+CHR$(34)+name$+".DAT"+CHR$( 
34) + “: x = ";endad r;":d e1ay =50:CLS:call &bb8 
1: FOR a = &4000 TO x:PRINT CHR$(PEEK(a)); :FO 
R c=0 TO de 1ay:NEXT:IF INKEY(47)0-1 THEN 
de 1ay = 0 ELSE delay = 50" 

760 PRINT#9 ,"20 NEXT:ENDCLOSEOUT 
Listmg CRAZY 


[117] 

[1888] 

[117] 

[3569] 

[3746] 
[ 1635 ] 
[1103] 
[1528] 
[1193] 
[1884] 
[1560] 
[3352] 

[1642] 

[117] 

[ 1857 ] 

[117] 

[6217] 


[413] 

[117] 

[ 1682 ] 

[117] 

[2244] 

[5168 ] 

[2852] 

[ 3957 ] 

[ 2535 ] 

[14198] 


[2029] 


770 laenge=endadr-&4000:SAVE NAMES+".DAT", [5582] 

b,&4000,1aenge:IF absp$="J" THEN OPENOUT " 

X.DAT":PRINT#9,endadr:CLOSEOUT 

780 PRINT:PRINT"OK. < K EY >":CAL L &BB18:RUN [2317] 

790 ' [117] 

800 '_WEITER_ [2163] 

810 ' [117] 

820 delay=50:CLS:CALL &BB81:FOR a=&4000 TO [7507] 

endad r:PRINT CHR$(PEEK(a));:FOR c = 0 TO de 
lay:NEXT:IF INKEY(47)<>-l THEN delay=0 ELS 
E de 1ay=50 


830 NEXT:GOTO 350 
840 RUN 
850 ' 

860 '_BRIEF LADEN_ 

870 ' 

880 CLS:PRINT"BRIEF LADEN" 

890 INPUT "Name =->",nameII$ 

900 MEMORY &3FFF:LOAD nameII$+".dat" 

910 OPENIN"x.dat":INPUT49,endadr:CLOSEIN 
920 PRINT"Brief geladen <key>":CALL &BB18 
:GOTO 520 
930 ' 

940 '_BRIEF LOESCHEN_ 

950 1 

960 CLS:PRINT"BRIEF LOESCHEN":PRINT:INPUT" 
Name =->",nameII1$ 


ERA,@nam$:GOTO 520 


970 nam$ = nameii1$+".* ' 

980 1 

990 '_CATALOG_ 

1000 ' 

1010 CLS:dat$="*.dat":!DIR,@dat$:PRINT:PRI 
NT"< KEY >":CALL &BB18:GOTO 520 
1020 

1030 ‘_BASIC. 

1040 

1050 !BASIC 
1060 
1070 
1080 
1090 

Listing CRAZY 


END OF CRAZY LETTER 


[961] 

[243] 

[117] 

[1576] 

[117] 

[1674] 

[1592] 

[ 1637] 

[3862] 

[3421] 

[117] 
[1855] 
[117] 
[2065] 

[1558] 

[117] 

[1400] 

[117] 

[4222] 

[117] 

[1119] 

[117] 

[1303] 

[3060] 

[905] 

[3060] 

[3469] 



Hochstraße 11 
8500 Nürnberg 80 
Tel.: 0911 / 28 90 28 


COMPUTER: - 

Joyce PCW 8266, kompl Toxisystem. neu. nur 
TOWER AI 201, mit InturleavO 1:1 Controller 
u 40 MB NEC-Festplatte Ißench-Test: 18ms) 

PC 1640 SD'MD - 40MB Fesipl + Textprogramm 


PC XT/AT ZUBEHÖR: 

Malho-Co-Prozossor 8087 B MH; 

80287 10 MHZ 

RAM-Erwelterung PC 1512 auf 640 KB 
TOWER AT auf 1 MB 
Filecord auch für 1512,'1640 20 MB 
30 MB 

Zwcihaufwork 1512'!640 5,25" 360 KB 
TOWER AT 3,5" 1.44MB 
Externes Zwo'tlaufwerk für XT und 
PC 1512/1640 3,5" 720 KB 
Genius Mouse GM 6 Plus, dt Version 
GM 6000, dt. Version 

Super Mouse, 3 Tasten, MS-Mouso kompatibel 
Bus Mouse für Schneider Computer 


DRUCKER: (dt. Handbücherl 



798, - Star LC 10 

398.- 


Stur LC 24-10 

698,- 


3498, - Amslrad LO 3500 di 

598,- 


1998,- NEC P 6 Plus 

1448. 


CPC-ZUBEHOR; 


298, 

Laufwerk DDi-1 

448.- 

538, 

Zweitlautwerk FD-1 

269.- 

118 

Serielle Schnittstelle 

179,- 

198. 

BTX-Modul 

298, 

648, 

- 


748, 

CPC/JOYCE ZUBEHÖR: 


178, 

Mouso-Pack 

149,- 

298, 

Maxell 3" Disk. 10 St. 

64,- 


NEVADA Co bol (dl. Handb) 

98 

348, 

NEVADA Fortran (dl. Handb 1 

98- 

84. 

- 


98, 

JOYCE ZUBEHÖR 


68, 

Ser. i'par. Schnittstelle 

189,- 

74, 

RAM-EiWeiterung auf 512 K8 

118, 


Wir führen zu den Original-SCHNEIDER-Produkten Artikel verschiedener Firmen wie VORTEX, STAR-DIVISION, 
DATA BECKER, PROFISOFT, ARIOLA, RUSHWARE, MARKT & TECHNIK, SYBEX. GFA, GERDES, STAR, 
SCHNEIDER-DATA, ABD, SOFTMAKER usw.l 


Floppys kauft man beim Spezialisten für Diskettenlaufwerke: 


STARDRIVE- Floppys für Ihren CPC 

• STARDRIVE 5,25 Exfernal Disk Drive als Zwaillaufwork nur DM 298.- 

• STARDRIVE 5,25 External Disk Drive als Ersllaulwerk nur DM 498.- 

• STARDRIVE 5,25 EDD u. 3"-Disk Drive als Doppellaufwerk nur DM 698.- 


• STARDRIVE 3,5“-TEAC-Zweitlaufwerk in 720 KB Ausführg. nur DM 298.- 

(In H 10/89 als sehr leise gelöste!) 

• STARDRIVE 5,25''-TEAC-Zweitlaufwerk In 720 KB Ausführg. nur DM 348,- 

(In H 10/89 als komfortabel geteslet) 

Weitere Vorteile: 

12 Monale G+L-Vollgaranlle ACHTUNG! Neuer G+L-Servlce 

- sofortige Beiriebsbereilschafl Umbau aller CPC-Laufworke auf 

- alle Kabel im Lieferumfang enthalten Euro-PC nur DM 45,- 

- Integr. Diskeltenseifenumschalter 

Weitere Angebote (z.B. Laufwerke f EURO-PC) entnehmen Sie bitte unseren 
Prospekten/Listen (Inkl. techn. Daten), die wir Ihnen gerne kostenlos zuschicken. 

Preis zzgl. Porto/Verpackung, Bitte Rechnerlyp CPC 464/664 o. 6128 angebenl 


G + L electronic 

Computorhardware 
6759 Hefersweiler • Seelenerstraße 4 • Tel: 06359/2582 


Neue Speichererweiterung für CPC 

• RAM-Erwelterung 64. 128, 256 oder 512K für alle CPCs 
Alle Versionen nachträglich auf Maximal-Version aufrüstbar 

• optional 2 EPROM-Sockel mit frei wählbarer ROM-Nummer (1-15) 

• Patchprogramm für CP/M 2.2 (63K CP/M), Endlich laufen dBase, Mulliplan und Wordstar 

• Patchprogramm für CP/M Plus. CP/M Plus auch für CPC 464/664 
‘ resetfeste RAM-Disc (maximal 448K) für CP/M 2.2 und CP/M Plus 

• reselfeste RAM-Disc unter BASIC (nur bei EPROM-Verslon) 

• 100% kompatibel zu dk'fronics RAM-Erweiterung und Silicon-Disc 

• AnschluB über den Expansionsport (kein Eingriff In den Rechner nötig) 

• geringe Abmessungen (mit Gehäuse. 160 x 03 x 20 mm) durchgeführler Erweiferungsbus 
RAM-Erwelterung mit Software für CP/M 2.2 und CP/M Plus auf 3“-DiskeUe 
(wahlweise auch 3.5*- oder 5.25"-Diskette) 

Preise: ohne RAMs.119,- DM 64 KByte.149.- DM 128 KByte.,199,- OM 

256 KByte.269,- DM 512 KByte.419,- OM 

Aufpreis für zusätzliche EPROM-Sockel und Software im EPROM 49.- DM 


X-Laufwerk für CPC 464/664/6128 

Das X-Laufwerk ist ein Systemlaufwerk, das anstelle eines 3“-Zweitlaufwerks am CPC 664/6128 
mit eingebautem oder am CPC 464 mit zusätzlichem 3“-Controller betrieben wird. Das X-DDOS- 
Betriebssystem wird zusammen mit einer EPROM-Karle an den CPC angeschlossen. 716 K nutz¬ 
bare Kapazität unter BASIC, CP/M 2 2 und CP/M Plus. 

* Die RAM-Belegung von X-DDOS ist nahezu 100% kompatibel zu AMSDOS. 

* Es kann softwaremäBig zwischen X-DDOS und AMSDOS umgeschaltet werden. 

* Es werden Anpassungsprogramme für CP/M 2.2 und CP/M Plus mitgeliefert. 

* Die CP/M Plus Anpassung ist auch auf einem CPC 464/664 mit 64K RAM-Erw. lauffähig. 

* Die 224-K8yte EPROM-Karte hat bei Installiertem X-DDOS noch eine Restkapazität von 
208 KByte. 

* Damit X-DDOS auch In beliebigen anderen EPROM-Karten lautfähig Ist. wurde völlig auf 
einen Kopierschutz verzichtet. 

* Als LOW-COST-Lösung beim CPC 464 kann das X-DDOS-EPROM auch einzeln bezogen 
und direkt gegen das AMSDOS-ROM ausgetauscht werden, 

X-DDOS-EPROM, Software & Beschreibung 99,- DM 

224-KByle EPROM-Karle. X-DDOS. Software 8 Beschreibung 239,- DM 

5.25“ oder 35“ X-Laufwerk. 224-KByle EPROM-Karle. X-DDOS. Sollw. 8 Beschr. 589,- DM 

5,25* oder 3.5“ X-Lautwerk. RAM-Erw. ohne RAMs. X-DDOS, Softw. 8 Beschr. 589,- DM 


EPROM- Karte 224 KByte für alle CPC 

* Für die EPROM-Typen 2764, -128, -256 

* ROM-Nummern 0-15 frei wählbar 

* 7 Sockel 

‘ Bel 27256 zwei ROM-Nummern pro Sockel 
‘ Durchgeführler Expansionsport 

* Software zum automalischen Erstellen von Programmodulen (BASIC und BIN-Dateien) 


Fertlggeräl für CPC 464/664 DM145,- Fertiggerät für CPC 6128 DM169,- 

Modul-Sottware auf 3"-Diskette DM 95, - 

Zubehör für EPROM-Karten 

EPROM 2764 OM 7,50 Protext-EPROM DM124,- Maxam-EPROM DM124,- 

EPROM 27128 DM 8,50 Protnerge Plus EPROM DM114,- Ulopu. DM 94,- 

EPROM 27256 OM 11,50 X-DDOS-EPROM DM 99,- Alpha-ROM DM 35,- 

EPROM 27512 DM21,50 Time ROM (Datteriegeputtefte Echtzeituhr) + EPROM DM135,- 


DOBBERTlfl 


Industrie-Elektronik GmbH 
Brahmsstraße 9, 6835 Brühl 
Telefon 06202/71417 
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Die andere Seite der 
Fraktalen 

Mandalas - die unbekannte Art 
der fraktalen Grafikerzeugung 

Wer kennt nicht die fraktalen Grafiken, die bizarre 
Bilder erzeugen. Das Programm Mandalas ist ähnlich 
und erzeugt hochinteressante Grafiken, die Meditations¬ 
bildern ähneln. Daher auch der Name. Die Methode der 
Berechnung ähnelt der des berühmten Apfelmännchens. 
Es wird ein Wertepaar errechnet, das als Punkt darge¬ 
stellt wird und für den nächsten Punkt wieder in die Be¬ 
rechnung einfließt. Diese Methode nennt man Iteration. 
Beide Programme beruhen auf diesem Prinzip. Der Un¬ 
terschied besteht allerdings darin, daß beim Apfelmänn¬ 
chen mit komplexen Zahlen gearbeitet wird, wogegen 
Mandalas mit einfachen reellen Zahlen rechnet. 


Das Programm enthält zwei verschiedene Formeln. Nach¬ 
dem das Programm gestartet wurde (CPC 464 mit Emula¬ 
tor) werden zwei Formeln auf dem Bildschirm angezeigt. 
Der Benutzer muß nun seine Wahl treffen, mit welcher For¬ 
mel er rechnen will. Die erste Formel ist etwas umfangrei¬ 
cher, was auch für die Grafiken gilt. Aber auch die zweite 
Formel hat durchaus ihren Reiz. Was bei geringer Vergröße¬ 
rung wie eine einfache Linie aussieht, kann bei genauerem 
Hinsehen ein völlig eigene Struktur haben. 

Nachdem man sich entschieden hat, erscheint die Liste der 
Parameter. Der Reihe nach müssen jetzt die einzelnen Werte 
eingegeben werden, die durch einen Pfeil markiert werden. 
Der erste Parameter, der abgefragt wird, ist die Genauigkeit. 
Damit ist die Anzahl der Punkte gemeint, die der Computer 
für das Bild errechnet. Das bedeutet aber nicht, daß er auch 
alle diese Punkte auf dem Bildschirm sichtbar darstellt. We¬ 
gen der Auflösung des Bildschirms überdecken sich viele 
Punkte, weil sie durch Rundungsfehler die gleichen Koordi¬ 
naten haben. Die Genauigkeit sollte ein Wert sein, der größer 
als Null ist. Wie groß dieser Wert tatsächlich sein muß, hängt 



Ein Grafik-Beispiel 


allerdings von der Grafik ab, die berechnet werden soll. Hier 
heißt es ausprobieren. 

Nicht nur verschiedene Winkel ändern das 
Aussehen des Objekts 

Der Drehwinkel erlaubt dem Benutzer, das Objekt in jede ge¬ 
wünschte Position zu drehen. Hierbei gibt es eine kleine Be¬ 
sonderheit; wenn dieser Winkel 0 ist, wird die Berechnung 
für den gedrehten Punkt übersprungen. Das hat eine Be¬ 
schleunigung der Bildberechnung zur Folge. 

Bei der Vergrößerung sind ebenfalls nur Werte, die größer 
als null sind, sinnvoll. Wenn der Wert außerdem größer als 1 
ist, wird das Objekt auf dem Bildschirm vergrößert. Werte 
zwischen null und eins verkleinern das Objekt. 

Jetzt fragt der Rechner nach den Konstanten a,b,c für die 
Formel. Wenn die erste Formel gewählt wurde, werden alle 
drei abgefragt. Die zweite Formel benötigt nur die Konstante 
a. Die Werte, die hier eingegeben werden müssen, können 
beliebige reelle Zahlen sein. Von ihnen hängt das Muster des 
späteren Bildes ab. ln der Tabelle 1 sind einige Beispiele zum 
Ausprobieren aufgeführt. 

Ob das Bild farbig oder monochrom dargestellt werden soll, 
kann bei der nächsten Eingabe entschieden werden. Danach 
müssen die Farben gewählt werden. 

Die letzten beiden Werte ermöglichen eine Verschiebung des 
Objektes auf dem Bildschirm. Die X-Koordinate kann einen 
Wert zwischen 0 und 639 annehmen. Hierbei sind die Werte 
von links nach rechts aufsteigend. Bei der Y-Koordinate stei¬ 
gen die Werte vom unteren Rand zum oberen Rand auf und 
liegen im Bereich 0 bis 399. 

Damit wären alle Voraussetzungen geschaffen. Es erscheint 
das Hauptmenü unter den Parametern. Man kann jetzt seine 
Eingabe korrigieren, indem man eine Zwei eingibt oder die 
Parameter ausdrucken, wenn man die Drei aufruft. Will man 
sehen, wie das Bild aussieht, kann man eine Eins für den Me¬ 
nüpunkt 'Darstellen' wählen. 

Gute Grafiken dauern unter Umständen Stunden 

Der Computer beginnt dann damit das Bild zu berechnen. Bei 
einer hohen Genauigkeit kann das mehrere Stunden dauern. 
Um Parameter zu korrigieren, kann man die Berechnung 
durch Drücken der Taste ENTER abbrechen. Es erscheinen 
dann wieder die Parameter und das Hauptmenü. Hierbei ist 
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zu beachten, daß die Berechnung bei einem neuen Start wie¬ 
der ganz von vorn beginnt. Wenn man aber endlich eine in¬ 
teressante Grafik auf dem Bildschirm hat, kann diese durch 
drücken der Taste COPY abgespeichert werden. Das funk¬ 
tioniert aber nur, wenn ein Diskettenlaufwerk vorhanden ist, 
der Schreibschutz ausgeschaltet ist, sich eine Diskette im 
Laufwerk befindet und darauf mindesten 17 kByte freier 
Platz vorhanden ist. Wenn das nicht der Fall ist, wird der 
Bildschirminhalt durch Fehlermeldungen zerstört. Aber das 
Abspeichem ist auch mit einer Kassette möglich. 

Der Bildschirm wird unter dem Namen MANDALA.PIC ge¬ 
speichert, und das Programm fahrt mit der Berechnung fort. 
Wenn die Berechnung abgeschlossen ist, beginnt der Rand 
des Bildschirms zu blinken. 

Das Programm ist zwar kurz und einfach zu bedienen, aber 
stößt bereits an die Grenzen der Leistungsfähigkeit eines 
CPC. Man muß schon etwas Geduld haben. Es dauert seine 
Zeit, bis eine Grafik vollständig berechnet ist. Es macht aber 
trotzdem Spaß zuzusehen, wie sich die Bilder langsam auf 
dem Bildschirm entwickeln. (Maik Wojcieszak/cd) 



Tabelle I: Werte zum Ausprobieren 


X 

Bedeutung 

1 

ausgewählte Formel 

2 

Genauigkeit 

3 

Drehwinkel 

4 

Vergrößerung 

5-7 

Konstanten (a,b,c) 

8 

Darstellung (Mode) 

9-12 

Farben 

13 

Ursprung X 

14 

Ursprung Y 


Tabelle 2: Bedeutung der Parameter PAR (x) 


für 464-664-6128 



10 

REM Mandalas 






20 







30 

DIM par(15 ) : ‘ 

Feld 

fuer 

Pa ram 

ete r 


40 

DIM par$(15) : 

FOR 

zae= 1 

TO 14 

: R E A D 

pa r: 

zae 

):NEXT zae 






50 

REM Formel au 

swae 

h 1 en 




60 

MODE 1:CLS 






70 

PRINT" Mandal 

as" : 

PRINT 

" = = = = 

= = = = " 

: PRI! 

80 

PRI NT"1 => x = 

y-sg 

n ( x ) * 

(abs(b*x-c) 

) : 

a-x 







90 

PRI NT"2 => x = 

y-s i 

n ( x ) 

: y = a- 

x":PRINT 

100 

INPUT"Welche 

Formel? 

";par( 

1) 


110 

IF pari 1)< >1 

AND 

par ( 

1)02 

THEN 

100 

120 

' 






130 

REM Eingabe 

der 

Param 

ete r 



140 

g=0:GOSUB 560 





150 

FOR zae=2 TO 

14 





155 

IF par(1)=2 

AND 

zae > 5 

AND z 

ae < 8 

THEN 

60 







156 

LOCATE 1,zae+3:PRINT 

CHR$(2 

43) 


160 

LOCATE 2,19: 

INPUT p$ 




170 

IF p$="" THEN 240 




180 

pa r (zae)=VAL (p$ ) 





190 

IF zae > 7 THEN pa 

r ( zae 

) = I NT( 

pa r ( z 

ae) ) 


N zae-7 GOTO 200,210,210,210,210,220,230 E 
LSE 240 


200 IF 

par ( 

zae)< > 

1 AND pa r(zae ) < >2 

THEN 16 

0 ELSE 

240 






210 IF 

par ( 

zae )<0 

OR 

par(zae)>26 THEN 

160 

ELSE 240 






220 IF 

par ( 

zae)<0 

OR 

par(zae)>639 

THEN 

160 

ELSE : 

240 






230 IF 

par ( 

zae)<0 

OR 

par(zae)>399 

THEN 

160 


[701] 

[117] 

[ 1900] 
[3557] 

[ 997 ] 
[1073] 
[2751] 
[2655] 

[2003] 
[ 1559 ] 
[2004] 
[117] 

[ 1949] 
[ 945] 
[940] 
[2875] 

[2307] 
[1472] 
[ 788 ] 

[ 1203] 
[4505] 


[ 2002 ] 

[3166] 

[2116] 

[2390] 


240 LOCATE 1,zae+3:PRINT" “+par$(zae);par( 
zae);" 

250 LOCATE 2, 19:PRINT SPACE$(20) 

260 NEXT zae 
270 ' 

280 REM Menne 

290 g=0:GOSUB 560:LOCATE 1,19 

300 PRINT" 1. Darstellen":PRINT" 2. Neue E 

ingaben":PRINT" 3. Drucken":PRINT 

310 a$ =INKEY$:IF a$="" THEN 310 ELSE w=VAL 

(a$ ) :IF w<l OR w>3 THEN 310 

320 ON w GOTO 340,140,540 

330 ' 

340 REM Darstellen 

350 MODE pa r( 8 ) :INK 0,par(9):INK l.par(lO) 
:INK 2,par(11):INK 3,par(12):CLS 
360 p=1:IF par(8)=2 THEN GRAPHICS PEN 1 
370 ORIGIN pari 13),par(14) 


[ 3212 ] 

[2536] 

[458] 

[117] 

[645] 

[962] 

[6142] 

[3349] 

[889] 

[117] 

[ 722 ] 
[4248] 

[3651 ] 
[396] 


380 x=0:y=0 

390 FOR 1 = 1 TO pa r(2) 

400 IF par(8) = 1 THEN GRAPHICS PEN p:IF p=3 
THEN p=l ELSE p=p+l 
410 GOSUB 650 

420 IF par(1)=1 THEN xx = y-SGN(x)*(ABS(par ( 
6)*x-par(7)) ) A 0 .5 ELSE RAD:xx = y-SIN(x) 

430 yy=par(5)-x 
440 x=xx:y=yy 

450 IF INKEY(18)=0 THEN GOTO 290 

460 IF INKEY(9)=0 THEN PRINT CHR$(7):SAVE" 

Smandala.pic“,b,49152,16380 

470 NEXT 1 

480 BORDER 0,1 

490 IF INKEY(18)=0 THEN BORDER 0:GOTO 290 
500 IF INKEY(9)=0 THEN PRINT CHR$(7):SAVE" 
'mandal a.pic",b,49152,16380 
510 GOTO 490 
520 ' 

530 REM Werte Ausdrucken 
540 g=8:GOSUB 560:GOTO 290 
550 ' 

560 REM Ausgabe der Werte 
570 MODE 1:CLS 

580 PRINT#g, Manda1as":PRINT#g," = ===== = = 
":PRINTÜg 

590 FOR zae=l TO 14 

600 PRINTÜg, "+par$(zae);par(zae) 

610 NEXT zae 
620 RETURN 
630 1 

640 REM Punkt ausgeben 

650 IF pa r(3)=0 THEN xp=x:yp=y:GOTO 720 
660 btr=SQR(x A 2+y A 2) 

670 IF bt r = 0 THEN 740 
680 wkac=y/btr:wkas=x/btr 
690 DEG 

700 xp=btr*(wkas*COS(par(3))+wkac*SIN(par( 
3))) 

710 yp=btr*(wkac*COS(par(3))-wkas*SIN( pari 
3))) 

720 IF xp>(639-par(13 ) ) OR xp<(par(13)*-1) 
OR yp>(399-par(14)) OR yp<(par(14)*-1) TH 
EN RETURN 

730 PLOT xp*par(4),yp*par(4) 

740 RETURN 
750 * 

760 REM Oaten fuer Text 

770 DATA "Formel-" , 

-","Drehwinkel-(DEG)--" 

780 DATA "Vergroesserung-", 

a)-" , " Konstante- ( b)-" 

790 DATA "Konstante-(c)-", 

= >Mono- " , “Ink —(0)-" 

800 DATA "ink-(l)-", 

-", "Ink- (3)-" 

810 DATA "Ursprung-( x )-", 

) - " 


"Genauig keit 
" Konstante-( 
" l = >Farb1g/2 

"in k-(2 )- 

"Ursprung-(y 


[ 899 ] 

[ 529 ] 
[3748] 

[883] 

[3508] 

[ 972] 

[ 695 ] 
[604] 
[4128] 

[ 375 ] 

[ 986] 

[1573] 
[4128] 

[371] 
[117] 
[2240] 
[1866] 
[117] 
[1152] 
[1073] 
[4118] 

[ 733] 

[1628] 
[ 458] 

[ 555 ] 
[117] 

[ 1531] 
[1580] 
[ 100 ] 

[1060] 
[2426] 
[133] 
[2543] 

[2822] 

[6021] 


[1795] 
[ 555 ] 
[117] 
[898] 

[4300] 

[4905] 

[4683] 

[3087] 

[2847] 


Llsting MANDALAS 
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Beim CEUS, eine 
CPC-Benutzeroberfläche 

Teil 3: Der Window 
Manager (komplett) 

In der letzten Folge haben wir die grundsätzlichen Be¬ 
fehle zur Programmierung einer grafischen Benutzer¬ 
oberfläche entwickelt. In dieser Folge kommen nun noch 
einige Erweiterungen zum Window Manager dazu; denn 
Grundlagen ohne Extras sind wie Suppe ohne Salz... 



Haben Sie fleißig die Hausaufgaben 
aus der letzten Folge gemacht? Nein? 
Auch nicht so schlimm, denn hier kom¬ 
men einige absolut nützliche Erweite¬ 
rungen für ihren Window Manager. 
Erinnern wir uns: ln der letzten Folge 
haben wir einige Routinen kennenge¬ 
lernt, mit deren Hilfe wir so nette Din¬ 
ge erledigen konnten wie Bildaus¬ 
schnitte retten, Windows zeichnen, 
Schatten werfen und Fenster öffnen 
und schließen. Damit lassen sich schon 
ganz nette Programme schreiben, aber 
es kommt noch besser. Überlegen wir 
einmal: Wofür verwendet man norma¬ 
lerweise ein Window (jetzt denken Sie 
doch nicht gleich wieder an Multitask¬ 
ing, das wäre beim CPC ein wenig illu¬ 
sorisch)? Also, da gibt es einmal Me¬ 
nüs, dann Meldungen und natürlich 
Arbeitswindows, in denen Utilities und 
Unterprogramme ihre Meldungen zum 
besten geben, oder Fenster, in denen 
mehrere Funktionen eines Programms 
ablaufen, wie zum Beispiel mehrere 
Texte in einer Textverarbeitung oder 
eine Hilfeseite. Die Menüs und die Sy¬ 
stemmeldungen kommen später, und 
die verschiedenen Textbereiche sind 
mit den bisherigen Befehlen kein Pro¬ 
blem. Aber der Rest! Stellen wir uns 
einmal vor, wir haben eine Anwen¬ 
dung, in der ein Notizblock und ein Ka¬ 
lender integriert sind. Der Kalender er¬ 
scheint jetzt auf dem Bildschirm, und 
damit jeder weiß, daß es sich um einen 
Kalender handelt, soll das im Fenster 
vermerkt werden. 

Das Fenster beim 
Namen genannt 

Das Kalender-Window muß also einen 
Namen bekommen. Ist kein Problem, 
man muß nur das Fenster etwas vergrö¬ 
ßern. eine Überschrift oben hinein for¬ 
matieren, mit einer schönen Linie ab¬ 
grenzen und das Fenster wieder ver¬ 
kleinern. Und hinterher beim Ausblen¬ 


den hat man auch 
daran zu denken. 

Ist wohl doch nicht 
so einfach. Das 
wäre doch eine 
schöne Aufgabe 
für eine fertige 
Routine: Man sagt 
einfach: 

I WINDOW. NAME, 
num. xl, yl. x2, 
y2, @name$ 

Den Rest erledigt 
der Window Ma¬ 
nager. Die Routi¬ 
ne geht dabei so 
vor, daß sie zuerst 
die obere Win¬ 
dow-Grenze um 
zwei verkleinert 
und dann mit fünf 
Parametern (ohne 
name$) IWINDOW.OPEN aufruft. 
Danach wird im neuen Window der 
Name ausgegeben (an der Oberkante, 
zentriert), eine Linie aus Zeichen 154 
drunter gezogen und das System-Win¬ 
dow (#num) wieder auf die ursprüng¬ 
liche Größe verkleinert. Fertig. 

Tarnkappe her 

Aber es gibt ja auch noch andere Auf¬ 
gaben. Kehren wir zurück zu obiger Si¬ 
tuation. Wir haben unsere Anwen¬ 
dung, und darüber liegt ein Kalender 
und darüber ein Notizblock. Nun wol¬ 
len wir schnell, während wir im Notiz¬ 
block arbeiten, auf den Kalender 
schauen. Dazu extra den Notizblock zu 
schließen, auf den Kalender zu schau¬ 
en, den Notizblock wieder zu öffnen 
und komplett neu aufzubauen, das er¬ 
scheint da ein wenig umständlich. Bes¬ 
ser ist, den Notizblock kurz auszublen¬ 
den. um einen Blick auf die geschlage¬ 
nen Stunden zu werfen. Theoretisch ist 
das alles wieder ganz einfach: Statt des 
Hintergrundes retten wir einmal den 


Vordergrund, blenden das Fenster aus, 
schauen den Kalender an, retten wieder 
den Hintergrund und blenden den Vor¬ 
dergrund ein. Ein scheinbar plausibler 
Schritt, der bei näherer Rechnung seine 
Vorteile verliert: Unser Notizblock ist 
(Mode 1) 30 mal 20 Zeichen groß. 
Dann belegt er im Speicher alleine 
schon 11 kByte, dasselbe noch mal für 
den Vordergrund, und der Kalender ist 
auch noch da. 

Da wird es schon sehr eng. Aber ei¬ 
gentlich muß das ja nicht sein! Wäh¬ 
rend wir den Vordergrund retten, blen¬ 
den wir den Hintergrund ja wieder ein. 
er braucht also nicht im Speicher gehal¬ 
ten zu werden, und wir können seinen 
Bereich für den Vordergrund verwen¬ 
den. Wir brauchen nur den gespeicher¬ 
ten Hintergrund gegen die Bilddaten 
auszutauschen und erreichen eine we¬ 
sentlich elegantere Lösung. Das heißt, 
ganz so einfach ist das auch wieder 
nicht. Das Fenster hat ja noch einen 
Schatten, und dessen Hintergrund ist 
auch gerettet. Wenn wir jetzt einfach 
zweimal tauschen, steht vorher und 
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nachher derselbe Schatten da, und 
wenn sich der Hintergrund inzwischen 
geändert hat, dann stimmt er nicht 
mehr. Wir können also den Schatten 
nicht mit retten (den Rahmen auch 
nicht), sondern müssen sie beim Wie¬ 
deraufbau neu berechnen. Das bedeu¬ 
tet, daß wir für diese Bereiche sowohl 
beim Aus- als auch beim Wiederein¬ 
blenden Sonderbehandlungen durch¬ 
führen müssen. Das Berechnen des 
Rahmens und des Schattens wiederum 
können wir der WINDOW.DRAW- 
Routine überlassen. Wir müssen nur 
den Aufruf zum Löschen des Fenster¬ 
inhaltes unterbinden, weil dieser schon 
vorher eingeblendet wird (er muß für 
den Hintergrund Platz machen). An¬ 
sonsten sollten wir nur noch ein Flag 
setzen, ob ein bestimmtes Fenster nun 
eigentlich dargestellt ist oder nicht, 
denn wenn man dasselbe Fenster zwei¬ 
mal verstecken würde, gäbe es Chaos. 

Ach ja, und noch was: So ganz pro¬ 
blemlos ist diese Routine auch nicht, 
denn der Benutzer muß selbst aufpas¬ 
sen, daß sie nicht auf Fenster ange¬ 
wandt wird, die ganz oder teilweise 
verdeckt sind, denn sonst würden diese 
zerstört. Die Befehle zum Verstecken 
und Wiederherstellen heißen IW1N- 
DOW.HIDE,num und IWINDOW. 
SHOW.num und erwarten als Parame¬ 
ter nur die Nummer eines eröffneten 
und dargestellten (bzw. nicht darge¬ 
stellten, bei IWINDOW.SHOW) Fen¬ 
sters. Mit diesen Befehlen lassen sich 
jetzt schon aufwendigere Dinge pro¬ 
grammieren. Aber was? Gehen wir 
noch einmal zurück zu unserem Bei¬ 
spiel von vorhin: Sie haben den Notiz¬ 
block und darüber liegt der Kalender. 
Jetzt wollen sie den Notizblock bear¬ 
beiten, ohne daß der Kalender ver¬ 


schwindet. Sie brauchen also einen Be¬ 
fehl, der ein Fenster unter einem ande¬ 
ren hervorholt und dabei die Window- 
Tabelle korrigiert; denn es kann ja im¬ 
mer nur das oberste Fenster geschlos¬ 
sen werden. Das klingt insgesamt rela¬ 
tiv einfach, ist aber doch recht aufwen¬ 
dig zu programmieren. Aber warum 
denn? Man muß doch nur... ja, was 
denn eigentlich? Zuerst müssen (von 
oben her) sämtliche Fenster, die über 
unserem Window liegen (in der Tabel¬ 
le), versteckt werden, dann unser spe¬ 
zielles Window, und danach müssen 
alle oberhalb liegenden Fenster in der 
umgekehrten Reihenfolge wieder dar¬ 
gestellt werden. Zuletzt folgt wieder 
das hochzuholende Fenster. Der Haken 
kommt hinterher: Die gesamten Tabel¬ 
len für die Window-Ordnung müssen 
korrigiert werden, daß heißt, die Ein¬ 
träge für unser Fenster werden geret¬ 
tet, die nachfolgenden um einen Platz 
nach unten kopiert und unsere gerette¬ 
ten Einträge hinten angehängt. Und da¬ 
nach bekommt unsere beliebte MEM- 
FRE-Routine Zuwachs: Weil nach dem 
Poppen das oberste Window ja nicht 
mehr mit dem untersten im Speicher 
übereinstimmen muß, müssen wir 
eventuell neben den Symboltabellen 
auch noch die Windows verschieben. 

The End 

Das wär’s eigentlich für diesmal, in der 
Tabelle sind nochmal alle Befehle auf 
einen Blick zusammengefaßt. Hausauf¬ 
gaben für all die, die es nicht abwaiten 
können, gibt es auch wieder. Diesmal 
lautet unser Vorschlag auf eine Routine 
zum Verschieben eines Windows. Man 
muß zunächst auch - wie beim Poppen - 
alle oberhalb liegenden Windows aus¬ 


blenden, dann das entsprechende Fen¬ 
ster verstecken, die internen Koordina¬ 
ten ändern und alle Fenster wieder dar¬ 
stellen. Oder wie wär’s mit einem Be¬ 
fehl, der ein Window unter anderen 
hervorholt, ohne sie erst auszublenden. 
Der müßte dann aber an deren Hinter¬ 
grunddaten heran, und zwar mit Schat¬ 
ten und allem, was dazugehört. Das ist 
wohl nur etwas für diejenigen, die mit 
ihrem Assembler absolut fit sind, aber 
nicht unmöglich... In der nächsten Fol¬ 
ge gibt's dann etwas Neues: die Bild¬ 
schirmsteuerung für den CPC. Mit al¬ 
lem, was das kommandozeilengeplagte 
Programmiererherz verlangt, wie Cur¬ 
sorsteuerung (mit Cursortasten, Joy¬ 
stick oder AMX-Maus) und einer kom¬ 
fortablen Icon-Steuerung. 

(Jörg Schwieder/jf) 


IWINDOW. NAME, num,xl,y 1 ,x2, 
y2,@name$ 

(name$ darf höchstens die 
Länge x2 - x 1 + 1 haben) 
Öffnet ein Window und gibt 
ihm einen Namen (vgl. 
IWINDOW.OPEN). 

IWINDOW.HIDE,num 

Blendet das Window mit der 
Nummer num aus. 

IWINDOW.SHOW.num 

Blendet das Window mit der 
Nummer num wieder ein. 

IWINDOW. POP. num 

’Poppt’ das Window mit der 
Nummer num hoch, d.h. stellt 
es als oberstes Window dar 


Tabelle I: Die letzten Befehle des Window Ma¬ 
nagers 


Einträge in ' rsx' -Sprungtabet1e 

Jp whi de 
jp wshow 
Jp winpop 
Jp wname 

Einträge in 'table' der RSX-Befehle 

defm "WINDOW.HID" 
defb "E"+#80 
defm "WINDOW. SHO" 
defb " W " + «t 80 
defm "WINDOW, PO" 
defb "P"+#B0 
defm "WINOOW.NAM" 
defb “E "+#80 


Assemblerlisti ng zu den Befehlen 

wname: ;W. öffnen u. Namen geben 

cp 6 ;6 Parameter? 

j p m,opml s 
j p nz, imparg 

ld 1,(1 x + 0) ;Strdeskr.adr. nach HL 
ld h,(1x+l) 

ld a,(i x + 4) ;Xende nach A 

ld d,(i x + 8) ; Xan f nach D 

sub d ; Xd 1 ff nach A 


i nc a 

cp (hl) ;St ring länger als Xdlff? 
Jp m,Imparg ;dann Fehler 


push hl 
push ix 
ine ix 
i nc ix 
dec (1 x + 4 ) 
dec (ix+4) 
ld a,5 
cal1 wopen 
pop i x 


;0esKr.adr. retten 
;Parameter retten 
;String überspringen 


;Obergrenze 2 nach oben 
; (PI atz für Überschrift) 
;Parameter -1 
;Wlndow öffnen 
;Parameter holen 
ld a,(ix+10) ;Nummer des Fensters 
call #bbb4 ;als aktuelles Fenster 
;altes Fenster 
mach HL 
und mit Deskr. tauschen 
;Xende nach A 
;Xanf nach B 
;Xdiff nach A 


push af 

pop hl 

ex (sp),h1 

ld a,(ix+4) 

ld b,(ix+8) 

sub b 

1 nc a 

ld b,(hl) 

sub b 

sr 1 a 

ld b,32 

call nz. chars 

ld a,(hl) 

ine hl 

cal1 print 


;Stringlänge nach B 
iDifferenz nach A 
;Di f ferenz/ 2 ... 
i...Spaces... 

; ...ausgeben 
•.Stringlänge nach A 
; HL auf String 
iStrtng ausgeben 


Lisling CEUS 


Llsting CEUS 


ld hl ,#0102 
call #bb75 
1d a,(ix+4) 
ld b,{1 x+8) 
sub b 
1 nc a 
ld b, 154 
call chars 
1d h,(ix+8) 
dec h ; 

Id 1.(1x+6) 
i nc 1 

1d d , (1x + 4) 
dec d 

ld e,( 1 x+2) 
dec e 

call #bb66 
pop af ;al 
jp #bbb4 


; CursorposltiOn 1/2 
iTXT SET CURSOR 
;Xende nach A 
;Xanf nach B 
;Xd t ff nach A 

;Linie 
;ausgeben 
•.Koordinaten d. w. nach 
HL und DE (physikalisch) 

;Obergrenze korrigieren 


; TXT WIN ENABLE 
te W.nummer wieder holen 
;TXT STR SELECT 


chars: push 


1 d c , a 
1 d a , b 
1 d b , c 
charl: call 
djnz charl 
pop bc 
ret 


bc ;BC retten 

;Zöhler nach C 
iZeichen nach A 
;Zähl er nach B 
# bb5a ;TXT WR CHAR 

;»eiter bis Zähler=0 
;BC holen 
;und zurück 


Lisling CEUS 
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print: 1d b,a 

[Länge nach B 

ld e, (hl) 

[Strlngadr, nach DE 

1 nc h 1 
ld d,(hl) 
ex de.hl 

[Strlngadr nach HL 

prini: ld a,(hl) [Zeichen aus String 

call «tbbSa 

[TXT WR CHAR 

Inc hl ; 

HL auf nächstes Zeichen 

djnz prini 

[weiter bis Länge=0 

ret 

[und zurück 

whlde: 

; 'Versteckt' ein Window 

cp 1 

;1 Parameter? 

j p m,opmis 

J p nz,Imparg 

ld a,(winent) [Anzahl der Windows 

or a 

; =0? 

j p z,Imparg 

; dann Fehler 

1 d b , a 

[Anzahl nach B 

1d hl,winnum 
ld a,( 1 x+ 0 ); 

;HL auf Nummern 

Nummer als Param. holen 

whd1: inc hl; 

HL auf nächsten Eintrag 

cp (hl) 

;=Pa ram.? 

Jp z,whd2 

[dann weiter 

djnz whdl 

[sonst nächster Eintrag 

jp imparg 

;nicht da? Fehl er! 

whd2: ld a.(winent) [MaxWin+1 

sub b 

;-Tabe11ennumme r 

1 nc a 

1 d c , a 

;=Offset für Eintrag 

ld b, 0 

[nach BC 

ld hl,hidden 

;HL auf Eintrag in der 

add hl,bc 

[Vertsteckt-Tabelle 

ld a,(hl) 

[Eintrag holen 

cp «ff ; 

Window schon versteckt? 

ret z 

[dann zurück 

ld hl.winxl 

;HL auf Xanf 

add hl.be 
ld d, (hl) 

[Xanf nach D 

dec d 

;Xan f- 2 

dec d 

ld hl.winyl 

;HL auf Yanf 

add hl,bc 
ld e,(hl ) 

;Yanf nach E 

dec e 

;Yanf-2 

dec e 
push bc 

[Offset retten 

push bc 
ex de,hl 

;Koords. nach HL 

cal1 «bcla 

[Adr, von links oben.. 

ex de,hl 

;..,nach DE 

pop bc 

[Offset holen 

push de 

[Windowadr. retten 

ld hl,winadr;HL auf Hintergrundadr. 

add hl.be 
add hl.be 
ld e,(hl) [ 

Hlntergrundadr. nach OE 

Inc hl 
ld d,(hl) 
push de 

; H.ad r. retten 

ld hl.winx 2 

[HL auf Xende 

add hl.be 
ld a , (hl ) 

[Xende nach A 

1d h1,winx1 

[HL auf Xanf 

add hl.be 
ld e,(hl) 

[Xanf nach E 

sub e 

;Xdiff 

inc a 

; +3 

inc a 

Inc a 

1 d e , a 

[nach E 

push bc 

[Offset retten 

call itbcla 

[SCR CHAR POSITION 

whd3: srl b 

;Zeichenbreite /2 

Jp c,whd4 

[übertrag? dann weiter 

sla e 

[sonst Xdiff*2 

jp whd3 

[und nochmal 

whd4: pop bc 

[Offset holen 

ld hl,winy 2 

;Yd 1 ff nach D 

add hl.be 
ld a.(hl) 

1d hl,winyl 
add hl.be 
ld d,(hl> 
sub d 

1 nc a 

1 nc a 

1 nc a 
ld d.a 
sla d 

;Ydif f*8 

sla d 
sla d 
push de 

[Xdiff u. Ydiff 

pop bc 

[nach BC 

pop de 

;H.adr. nach DE 

pop h 1 

[W.adr. nach HL 

whd5: push hl 

[w.adr und 

push bc 

[Diffs retten 

whd6: ld a.(de);Hintergrdbyte nach A 

1dl 

[Byte a, Win. speichern 

dec hl 

;HL wieder +1 

Inc bc 

;BC wieder +1 

ld (hl ) .a 

[H.Byte wieder darst. 

inc hl 

[nächstes Byte 

dec c 

j p nz.whd6 

[bis Zeile da rge9t. 
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pop bc 

;Dlffa holen 

pop hl 

[HL holen 

call #bc 26 

;nächste Zeile 

djnz whd5 [nochmal 

bis alle Zeilen 

pop bc 

[Offset holen 

1d h1,hidden ;HL auf 
add hi,bc 

Hidden-Eintrag 

ld a,#ff 

;'Versteckt' 

ld (hl ) ,a 

[setzen 

ret 

[Fertig! 


wshow: 

[Blendet W. wieder ein 

cp 1 

j p m.opmis 
jp nz,imparg 
ld a, (winent) 
or a 

jp z,Imparg 

;1 Parameter? 

1 d b . a 

[Anzahl nach B 

1d hl,w1nnum 

;HL auf Nummern 

ld a,U x+0)[Nummer als Param. holen 

wshl: Inc hl;HL auf nächsten Eintrag 

cp (hl) 

; =Param.? 

J p z,wsh2 

[dann weiter 

djnz wshl [ 

sonst nächster Eintrag 

jp Imparg 

;nicht da? Fehler! 

wsh2: ld a.(winent) [MaxWin 

sub b 

; - Tabe11ennummer 

1 nc a 

; +-1 

1 d c , a 

;=0ffset für Eintrag 

ld b, 0 

[nach BC 

1d hl,hidden 

;HL auf Eintrag ln der 

add hl.be 

[Vertsteckt-Tabelle 

ld a, (hl ) 

[Eintrag holen 

cp #ff 

[Window versteckt? 

ret nz 

[sonst zurück 

ld hl,winxl 
add hl,bc 

;HL auf Xanf 

ld d. (hl ) 

[Xan f nach 0 

dec d 
dec d 

;Xanf-2 

ld hl,winyl 
add hl.be 

[HL auf Yanf 

ld e.(hl) 

[Yanf nach E 

dec e 
dec e 

;Yanf-2 

push bc 
push bc 

[Offset retten 

ex de.hl 

;DE und HL tauschen 

ca 11 #bcla 

;Adr. von links oben.. 

ex de.hl 

; . . .nach DE 

pop bc 

[Offset holen 

push de 

[Windowadr. retten 

1 d hl ,winadr; 
add hl.be 
add hl.be 

HL auf Hintergrundadr. 

ld e,(hl) [Hintergrundadr, nach DE 
inc hl 
ld d, (hl) 

push de 

[H.adr. retten 

1d hl,winx2 
add hl.be 

;HL auf Xende 

ld a.(hl) 

[Xende nach A 

ld hl.winxl 
add hl.be 

[HL auf Xanf 

ld e.(hl) 

[Xanf nach E 

sub e 

[Xdiff 

1 nc a 
i nc a 

1 nc a 

[+3 

1 d e , a 

[nach E 

push bc 

[Offset retten 

cal1 #bcla 

[SCR CHAR POSITION 

wsh3: srl b 

[Zeichenbreite /2 
[Übertrag? dann weiter 

jp c,wsh4 

sla e 

[sonst Xdiff*2 

Jp wsh3 

[und nochmal 

wsh4: pop bc 

[Offset holen 

1 d hl,winy2 
add hi.be 
ld a,(hl) 

1 d hl ,winy1 
add hi.be 
ld d.(hl ) 
sub d 

1 nc a 

1 nc a 

1 nc a 

1 d d , a 

1 Ydlff nach D 

sla d 
sla d 
sla d 

;Ydiff*a 

push de 

-,Xdi ff u. Ydiff 

pop bc 

[nach BC 

pop de 

[H.adr, nach DE 

pop hl 

[W.adr. nach HL 

push bc 

[Diffs retten 

push hl 

[W.adr. retten 

cal1 äbcla 

[SCR CHAR POSITION 

pop hl 

[W.adr. holen 

ld a , b 

1 Zeichenbrei te nach A 

pop bc 

;Dif f3 holen 

push af 

[Breite retten 

wsh5: call getlne [Zeilen lesen 

ld a.b 
sub 16 
ld b.a 

;Ze1lenzähler-16 
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wsh7: pop af 
push af 
push hl 
push bc 
call gatch r 
call exclne 
cal1 getchr 
pop bc 
pop hl 
call #bc 26 
djnz wsh7 
pop af 

wsh9: call get1 ne 
pop bc 


;Bre 1 te holen 
[Breite wieder retten 
;W.adr. retten 
;D1ffs retten 
[linken Rand lesen 
;W.Inhalt tauschen 
[rechten Rand lesen 
;01ffs holen 
[W.adr holen 
[nächste Zeile 
[nochmal bis letzte 
[Breite holen 
;Spa 1te 1esen 
[Offset holen 
ld hl.hldden ;HL auf Hldden-EIntrag 
add hl,bc 

;'nlcht Versteckt' 

;setzen 
HL auf SCR FILL BOX 
[Byte nach A 


xor a 
ld (hl),a 
ld hl,*bc44 
ld a,(hl ) 
push af 

ld (hl),«c9 [und 
1d Ix,ubgbuf 
ld hl.winxl 
add hl,bc 
1 d a , ( h 1 ) 
dec a 

ld (ix+6),a;und ln Buffer schreiben 


;und retten 
RET' einsetzen 
;IX auf 8uffer 
[HL auf Xanf 

[Xanf-1 nach A 


ld d , a 
ld hl,w1nx2 
add h 1 ,bc 

ld a,(hl) 

sub d 

ld (i x+2),a 
ld hl ,w1 nyl 
add hl,bc 
ld a,(hl> 
dec a 

1d (ix+4),a 
ld d,a 
1d hl,winy2 
add hl,bc 
ld a,(hl ) 
sub d 

ld (i x + 0 ) ,a 
ld a , 4 
cal1 wdraw 
pop af 
1d hl,#bc44 
ld (hl>,a 
ret 

get1 ne:1d a,8 
get 1 nO:push bc 
push hl 
get1nl:1d b,0 
LOIR 
pop h 1 
pop bc 
push af 
call #bc26 
pop af 
dec a 

J p nz,get1nO 
ret 


[Xanf nach D 
;HL auf Xende 

[Xende nach A 
;Xdlff nach A 
,Xdlff in Buffer 
[V-Werte in Buffer 


[4 Parameter setzen 
; Fensterrahmen zeichnen 
;altes Byte hol en 
[und wieder nach 
;SCR FILL BOX schreiben 
[Fertig! 

;8 Zeilen 
[Diffs retten 
[W.adr. retten 
[Breite nach BC 
[Zelle kopieren 
[W.adr. holen 
[Diffs holen 
[Zähler retten 
; nächste Zeile 
[Zähler holen 
[-1 

;weiter bis =0 
[und zurück 


getchr:push af 


;AF retten 


getchl;1 di 
i nc bc 
dec c 
dec c 
dec a 

jp nzigetchl 
ret 


;1 Byte kopieren 
;BC wieder restaurieren 
[Breite -2 

[Zeichengröße -1 
[und weiter bis ZG=0 


exclne:Push af [Zeichenbreite retten 
exc 1 n1:1d a,(de) 

ldi [Byte aus Bild schreiben 
dec hl [HL und BC wiederherste11en 
1 nc bc 

ld (hl),a [Byte in Bildsch. 
ine hl [nächstes Byte 
dec c [Breite -1 
jp nz.exclnl [weiter bis Breite=0 
pop af [Zeichenbreite holen 
ret [und zurück 


winpop: ;'Popt' ein Fenster hoch 

cp 1 [1 Paramete r 

j p m,opmis 
jp nz,imparg 

ld a,(winent) ;Anz. d. Windows 

ld b,a [nach B 

ld a,(ix+0) [Windownummer nach A 

ld hl.winnum ;HL auf Tab. d. W.num. 
wpopl: ine hl ;auf nächsten Eintrag 
;=Windownummer? 
; ja? dann weiter 
djnz wpopl [sonst nochmal versuchen 
jp imparg [nicht gefunden? Fehler! 
wpop2: ld a,(winent) [Offset 

;nach BC 


cp (hl ) 
jp z,wpop 2 


sub b 
ine a 
1 d c , a 
ld b, 0 
ld d,0 

1 d a,(winent1 
Listirig CEUS 


;Anz.d.Wind. 
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ld e,a ; nac h DE 

ld hl,winnum;HL auf Tab. d. Nummern 
add hl,de ;HL auf letzten Eintrag 
wpop3: ld a,(hl) ;Nr obersten Window 
;Window verstecken 
;Offsets vergleichen 


;gleich? dann weiter 
;HL retten 
; sonst mit nächstem Window 
;nochmal 

a,(wlncntl ;Anz.d.Wind. 

;nach OE 
[Offset retten 

;nächstes Window (v.u.) 

;nach A 
;und W einblenden 
.schon oberstes Window? 

[sonst nochmal 
;HL holen 
; 2 u poppendes W. nach A 
;Offset holen 
zu poppendes W, einbl. 
[DE auf Xanf-Loerplatz 

;HL auf Xanf-Wert 
[Wert kopieren 
;und 8C restaurieren 
;Xende kopieren 


;Yanf kopieren 


ca 11 wpoph 
1 d a, e 
sub c 

jp z.wpop« 
dec h 1 
dec e 
Jp wpop3 
wpop4: ld 
1 d e , a 
push bc 
push hl 
wpop5: inc c 
1 nc hl 
ld a,(hl) 
cal1 wpops 
1 d a , c 
sub e 

jp nz,wpop5 
pop h 1 
ld a,(hl ) 
pop bc 
cal1 wpops 
1 d de.wlnxl 
1 d hl,winx1 
add hl,bc 
ldi 

1 nc bc 
1 d de,winx2 
ld hl ,winx2 
add hl,bc 
ldi 

i nc bc 
1 d de,winy1 
1 d hl,winy1 
add hl,bc 
ldi 

1 nc bc 
1 d de,winy2 
1 d hl,winy2 
add hl,bc 
ldi 

inc bc 

ld de.winnum 
1 d hl,winnum 
add hl , bc 
ldi 

1 nc bc 

ld de,hidden 
1 d hl,hidden 
add hl , bc 
1 di 

1 nc bc 

ld de.wlnadr 
1 d hl ,winad r 
add hl.bc ;16-Bittig, daher 2* add. 
add hl.bc 

ldi ;und 2 * kopieren 

1 nc bc 

ldi 

1 nc bc 

1 d de,win1 an 
1 d hl , wi n 1 an 

add hl.bc 
add hl.bc 
ldi 

ine bc 
ldi 

i nc bc 

ld a.(wincnt) ;Anz.d.Wind. nach A 
sub c j-Offset 

ld hl.winxl;Adr. d. X-Werte nach HL 
ld de,winxl ;und DE 

add hl.bc ; HL auf nächsten Eintrag 
, HL und DE tauschen 
;HL auf nächsten Eintrag 
; + i 

;Zäh 1e r retten 
Anz. d. höheren W. nach BC 
;und Tabelle verschieben 
;Zähle r holen 
Xende-Werten wie mit 
; Xanf 


[Yende kopieren 


;Nummer kopieren 


; hidden-Attr. kopieren 


[Adresse kopieren 


;Länge kopieren 


ex de,hl 
add hl.bc 
1 nc hl 
push bc 
1 d c , a 
1 dl r ; 

pop bc 
1d hl,winx2 
1 d de,winx 2 
add hl.bc 
ex de.hl 
add hl.be 
inc hl 
push bc 
1 d c , a 
ldi r 
pop bc 
ld hl,winyl 
1d de,winy1 
add hl.be 
ex de,hl 
add hl.be 
i nc hl 
push bc 
1 d c , a 
ldi r 
pop bc 
ld hl,winy 2 
ld de,w1ny2 
add hl.be 
ex de,hl 


;Yanf~Tab. verschieben 


;Yende-Tab. verschieben 


add hl.be 

1 nc hl 
push bc 
1 d c , a 
1 d 1 r 
pop bc 

1d hl,winnum 
ld de.winnum 
add hl.bc 
ex de,hl 
add hl.bc 
i nc hl 
push bc 
1 d c , a 
1 d 1 r 
pop bc 

1 d h1,hldden 
1d de,h1dden 
add hl,bc 
ex de,hl 
add hl.be 
ine hl 
push bc 
1 d c , a 
ldi r 
pop bc 

1d hl,winadr; 
1d de,winadr 
add hl,bc ; 

add hl.be ; 

ex de,hl 
add hl,bc 
add h 1 ,bc 
inc hl 
i nc hl 
push bc 
1 d c , a 
1dl r 

1 d c . a ; . . 
1 di r 
pop bc 

ld hl.winlan; 
1d de,winlan 
add hl.be 
add hl.be 
ex de,hl 

add hl.be 
add hl.be 
ine hl 
1 nc hl 
1 d c , a 
ldi r 
1 d c, a 
ldi r 

1 d a.(winent) 
1 d c , a 
ld de.wlnxl 
1 d hl ,winx1 
add hl.be 
ex de,hl 
1dl 

1 nc bc 

1d de,winx 2 ; 
1d hl,winx2 
add hl.be 
ex de,h1 
ldi 

1 nc bc 
1 d d e , w 1 n y 1 
1d h1,winy1 
add hl.bc 
ex de,hl 
ldi 

1 nc bc 
1d de,winy2 
ld hl,w 1 ny2 
add hl,bc 
ex de,hl 
1dl 

1 nc bc 

ld de.winnum 
1d hl.winnum 
add hl.be 
ex de,hl 
1 d i 

1 nc bc 

1d de , hldden 
1d hl,hidden 
add hl.be 
ex de,hl 
ldi 

i nc bc 

ld de,wlnadr 
ld hl.winadr 

add hl.bc ; 
add hl.be 
ex de,h 1 
ldi 

1 nc bc 
ldi 

1 nc bc 

1 d de,winlan 
1d hl.winlan 
add hl.bc 
add hl.be 
ex de,hl 
ldi 


;Tab. d. Windownummern 
; verschieben 


;Hidden-Tab. versch, 
;verschieben 


Adresstab. verschieben 


Tab. ist 16-Bit breit, 
==> 2 mal addieren,... 


; . . . 2 mal erhöhen.. . 


.und 2 mal verschieben 

Längentab. verschieben 


; Anz.d.Wind. 
;nach BC 
;HL und DE auf Xanf 

;HL auf neuen Platz 
;HL und DE tauschen 
;Xanf kopieren 
;und BC restaurieren 
Xende kopi. (wie Xanf) 


;Yanf kopieren 


;Yende kopieren 


[Nummer kopieren 


[Attribut kopieren 


[Adresse kopieren 
16-Bittig, => 2* add. 

;und 2* kopieren 

;Länge kopieren 


1 nc bc 

ldi 

ret 

wpoph: push bc 
push hl 
push de 
push af 
ld hl.hidden 
add hl.de 
ld a,(hl ) 

1 d b , a 
pop af 
push bc 
1d ix,u bgbuf 
ld (IxfO).a 
ld a , 1 
call whide 
pop bc 
ld a.b 
pop de 

ld hl,hidden 
add hl,de 
1 d (hl),a ;und 
pop hl 
pop bc 
ret 

wpops: push bc 
push hl 
push de 
push af 
1d hl,h1dden 
add hl.de 
ld a.(hl) 
or a ;=0? 
jp nz,wpopse;sonst 
ld a,#ff 
ld (hl ) .a 
pop af 
1 d ix,ubgbuf 
ld ( 1 xf 0 ),a 
ld a. 1 

call wshow ; 

wpopse:pop de 
pop hl 
pop bc 
ret 


[Fertig! 
[Register retten 


;HL auf Attribute 
[Attribut 
[nach B 

;Windownummer holen 
[Attribut retten 
[IX auf Buffer 
[Nummer in Buffer 
;1 Parameter 
[Window verstecken 
[Attribut holen 
;und nach A 
[Offset holen 
;HL auf Attribut 

altes Attr. setzen 
;Register holen 

[und zurück 

[Register retten 


[HL auf Attribut 

[Attribut nach A 

n1cht darste11en 
[Attribut setzen 

[Nummer holen 
[IX auf Buffer 
[Nummer in Buffer 
; 1 Parameter 
Window einblenden 
[Register holen 


[und zurück 


[Oiese Zellen müssen in MEMFRE vor 
[MEMFR3 eingefügt werden 


ld hl, wi nadr; WI ndowad r .tab. nach HL 
Inc hl ;HL auf ersten Eintrag 

1 nc hl 

ld a.(wincnt) ;Windowzäh1er nach A 
ld iy.winlan ;W-1ängentab. nach XY 
Inc ly ;IY auf ersten Eintrag 

Inc i y 

memfr2:1d c,(hl) [Windowadr. nach BC 
inc hl 
ld b.(hl) 

1 n c h 1 

push hl [Windowadr.tab. retten 

ld l,(1y+0) [Windowlänge nach HL 

inc ly 
ld h.(1y+0) 

Inc ly 

add hl.bc [Adr. hinter Win. nach HL 
sbc hl.de ;=Adr. des Bereichs? 

pop hl ;Adr. der Tabelle holen 

jp z.pushwd [wenn =:Window hochkop. 
dec a [sonst nächstes Window 

jp nz,memfr2 


[Das hier gehört auch noch zu 
[MEMFRE, wird aber als 
[Unterprogramm aufgerufen 


pushwd: [kopiert ein Window 'hoch' 

push hl ; Adresstabe11e retten 

dec ly [Windowlänge nach BC 

1d b.(1y+0) 
dec i y 
ld c.(1y+0) 

ld de.(wadr) ; Be reichsadr . nach HL 
ld hl.(wlaeng) ;Ber.länge nach BC 
add hl.de [Zeiger hinter Ber.ende 
dec hl [Zeiger auf Bereichsende 

dec de ;DE auf Window 

ex de,hl ;DE und HL tauschen 

lddr [Window kopieren 

inc de ;DE auf neue Windowadr. 

inc hl ;HL auf neue Bereichsadr. 

ld (wadr),hl;Berelchsadr. eintragen 


pop hl 
dec hl 
ld (hl ) . d 
dec hl 
ld (hl).e 
jp memfrO 


; Adresstabel1e holen 
neue Windowadr. eintragen 


[und nochmal testen 


llstlng CEUS 


Llsting CEUS 


Llstlng CEUS 
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Umleitung 


die parallel zu anderen Programmpro¬ 
zeduren liegen (man denke dabei nur 
an die vielen verschiedenen Spielpro- 
grammc), ohne so eine Programmier¬ 
weise nicht umzusetzen. 


Die BASIC-Interrupts 


Das CPC-BASIC bietet nun auch die 
Möglichkeiten für eine ziemlich lei¬ 
stungsfähige Interrupt-Programmie¬ 
rung. So kann es optimal als Einstieg 
für eine spätere Programmierung in 
Assembler beziehungsweise Maschi¬ 
nensprache genutzt werden. Zum Teil 
gibt es sogar einzelne Übereinstim¬ 
mungen der Befehle zwischen dem BA¬ 
SIC und der Assemblersprache. Um ei¬ 
nen Überblick zu schaffen, sollen die 
für die BASIC-Interrupt-Programmie- 
rung relevanten Befehle erst einmal 
aufgelistet werden. Die komplette Pa¬ 
lette an Interrupt-Befehlen ist mit nur 
fünf Anweisungen abgedeckt. 

- AFTER 


Einen Moment mal/ 

Interrupt-Kursus für den CPC 


- EVERY 

- DI 

- REMAIN 

Aber zunächst muß an dieser Stelle 
noch auf einige Grundlagen bezie¬ 
hungsweise ein paar Absonderlichkei¬ 
ten der BASIC-Interrupt-Programmie- 
rung eingegangen werden. Geben Sie 
dazu Listing 1 ein. 

Das Programm gibt in einem Interrupt- 
Unterprogramm fortlaufend fünf Zah¬ 
len pro Sekunde auf dem Bildschirm 
aus, wobei jeweils ein kurzer Ton er¬ 
klingt. Das Hauptprogramm läßt durch 
Zufallszahlen die Farbe des Bildrandes 
(Border) ändern. Der flackernde Bor- 
der ist also ein Indikator für die Aktivi¬ 
tät des Hauptprogramms, während die 
Zahlenausgabe und der Ton Unterpro¬ 
grammaktivitäten beziehungsweise de¬ 
ren Geschwindigkeit anzeigen. Nun 
halten Sie das Programm durch einma¬ 
liges Drücken der BREAK-Taste an 
und warten einen Augenblick. Danach 
lassen Sie das Programm durch 
Drücken einer beliebigen Taste weiter¬ 
laufen. Sie werden überrascht sein! 
Wiederholen Sie nun dieselbe Proze¬ 
dur, verlassen das Programm dieses 
Mal aber (durch mehrfaches Drücken 
der BREAK-Taste). Nachdem ein we¬ 
nig Zeit verstrichen ist, setzen Sic das 
Programm durch den Befehl CONT 
fort. Beide Male konnte man nach dem 
Fortfahren im Programm beziehungs¬ 
weise nach dem Wiedereinstieg beob¬ 
achten, daß nur noch Unterprogramm¬ 
aktivitäten auftraten, die aber um so 


Der vorliegende Kursus soll dem Coniputerbenutzer das breite Feld der 
Interrupt-Möglichkeiten erschließen, ohne die eine effektive Programmie¬ 
rung heutzutage kaum noch denkbar ist. Um sowohl dem Interrupt- 
Einsteiger als auch dem Assembler-Bewanderten eine Hilfe zu bieten, soll 
alles Wissenswerte von der Pike auf erklärt werden. Beispielprogramme 
demonstrieren die praktischen Anwendungsmöglichkeiten. 


automatisch aufgerufen werden. So 
wird das Hauptprogramm nur für die 
unbedingt notwendige Zeit unterbro¬ 
chen, denn die Abfragen für einen be¬ 
dingten Aufruf des Unterprogramms 
entfallen. 


Zunächst stellt sich natürlich für den 
Einsteiger die Frage, was ein Interrupt 
überhaupt ist. Wenn man einmal von 
der schlichten Übersetzung des Wortes 
“Interrupt“, also “Unterbrechung“, 
ausgeht, kommt man der Wahrheit 
schon ein großes Stück näher. Ein In¬ 
terrupt ist tatsächlich eine Unterbre¬ 
chung, nämlich eine, meistens von ei¬ 
nem Hardwarebaustein ausgelöste, re¬ 
gelmäßige Unterbrechung des laufen¬ 
den Programms zugunsten eines 
Interrupt-Unterprogramms. 

Dieses wird vollständig abgearbeitet, 
bevor das unterbrochene Hauptpro¬ 
gramm an der Stelle weitergeführt 
wird, an der es verlassen wurde. Ein 
Interrupt kann aber auch eine software¬ 
gesteuerte Unterbrechung (Event) 
sein, worauf wir aber noch an späterer 
Stelle genauer eingehen werden. Der 
größte Vorteil, den eine Programmie¬ 
rung mit System-Interrupts bietet, liegt 
darin, daß das CPC-Betriebssystem de¬ 
ren Verwaltung vollständig über¬ 
nimmt. Der Programmierer wird entla¬ 
stet, da zugehörige Unterprogramme 


Wann sind Interrupts sinnvoll? 


Die Interrupt-Programmierung ist vor 
allem für schnelle und gleichmäßig 
auftretende sowie für immer wieder¬ 
kehrende Aktionen geeignet; hierzu 
zählen die flimmerfreie Bewegung ei¬ 
nes Sprites, das Scrollen von Bild¬ 
schirmteilen oder schnelle Programm¬ 
zähler wie zum Beispiel eine Uhr. Die 
Interrupts ermöglichen aber auch den 
Einstieg in völlig neue Sphären der 
Programmierung wie Split-Screens, 
das heißt die simultane Darstellung 
verschiedener Bildschirmmodi. Auch 
die gleichzeitige Präsentation aller 27 
Farben, die selbst in der Maschinen¬ 
sprache ohne Interrupts nicht ohne wei¬ 
teres gelingt, läßt sich damit realisie¬ 
ren. Des weiteren sind Musikstücke, 
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schneller. Das Unterprogramm holte 
sozusagen die Aktionen, die seit dem 
Unterbrechen fällig gewesen wären, 
wieder auf. Diese Tatsache läßt sich 
damit erklären, daß der computerinter¬ 
ne Interrupt-Zähler, der für die Anzahl 
der Aufrufe von Interrupt-Unterpro¬ 
grammen verantwortlich ist, weiterge- 
laufen ist. Das sollte bei jeder Art von 
Interrupt-Programmierung beachtet 
werden. Nun fügen Sie einmal in dem 
Beispielprogramm (Listing 1) folgende 
Zeile ein: 

75 CALL &BB06 

Dieser Call wartet, genau wie der Call 
&BB18, auf einen Tastendruck; die alt¬ 
bekannte “Press any key“-Routine. 
Jetzt starten Sie das Programm und 
drücken nach einiger Zeit eine Taste. 
Wie Sie sehen, läuft der Interrupt-Zäh¬ 
ler also auch bei so einem Programm¬ 
stop weiter. Das kann natürlich zu bö¬ 
sen Überraschungen führen, wenn es 
bei der Programmierung übersehen 
wird. 

Im folgenden sollen die einzelnen 
BASIC-Interrupt-Befchle anhand von 
praxisnahen Beispielprogrammen er¬ 
läutert werden. Das erscheint sinnvol¬ 


ler, als die sonst üblichen, zumeist 
sinnlosen Erklärungsprogramme, die 
das Eintippen kaum lohnen, zu ver¬ 
wenden. So kann auch schon eine Mög¬ 
lichkeit der späteren Befehlsanwen¬ 
dung aufgezeigt werden. Zunächst 
wollen wir uns dem Befehl AFTER zu¬ 
wenden. Geben Sie dazu bitte Listing 2 
ein und starten es. 

Die Zeile, auf die wir unser Augen¬ 
merk richten wollen, ist die Zeile 170, 
da dort der AFTER-Befehl auftritt. 
Was bewirkt nun dieser Befehl? Zuerst 
einmal die nüchterne Syntax: 

AFTER (Zeit),(Interruptnummer) 
GOSUB (Zeileniiummer) 

Die AFTER-Anweisung bewirkt, daß 
nach einer bestimmten Zeit (Parameter 
Zeit), angegeben in 1/50 Sekunden, au¬ 
tomatisch ein bestimmtes Unterpro¬ 
gramm EINMALIG aufgerufen wird. 
Der Parameter Zeilennummer hat den 
gleichen Effekt, als ob genau in diesem 
Moment ein GOSUB im Programm ge¬ 
standen hätte. Für die Zeit kann man 
Weite bis 32767 einsetzen. das ent¬ 
spricht in etwa einer Wartezeit von elf 
Minuten. Der Parameter Interrupt- 
Nummer, oft auch Zeitgeber genannt, 


weist der AFTER-Anweisung einen ei¬ 
genen Zähler zu. Man kann bis zu vier 
dieser Zähler (0 bis 3) einsetzen, wobei 
jeder Zähler einem eigenen Interrupt- 
Unterprogramm zugeordnet werden 
kann. Diese Interrupt-Zähler unter¬ 
scheiden sich in ihren Prioritätsstufen, 
Zähler 3 hat die höchste und Zähler 0 
die niedrigste Dringlichkeit. Wir wol¬ 
len noch einmal daraufhinweisen, daß 
ein BASIC-Interrupt einen laufenden 
Befehl NICHT unterbricht, zum Bei¬ 
spiel auch nicht Befehle wie INPUT 
oder CALL &BB06! 

In unserem Beispielprogramm wird 
nach zehn Sekunden (Zeitparameter: 
500) das Unterprogramm ab Zeile 280 
aufgerufen. Diese zehn Sekunden stel¬ 
len das Zeitlimit dar, das man hat, um 
die Buchstaben einzutippen (solange 
wird nur das Hauptprogramm durch¬ 
laufen). Am Ende der Unterroutine 
könnte jetzt zwar ein Rücksprung ins 
Hauptprogramm erfolgen (RETURN), 
in unserem Fall jedoch wird das Pro¬ 
gramm beendet. 

Die Befehle DI, EI, EVERY, und RE- 
MAIN werden in Listing 3 gemeinsam 
behandelt. Bitte geben Sie das Pro- 


Möchten Sie gerne programmieren ? 


CPC-BASIC-Lehrbuch 

Nutzen Sie die vollen Möglichkeiten der leistungsstarken CPC- 
Hardware durch das spezielle Schneider-BASIC! 

Um alle hardwaremäßigen Möglichkeiten der CPC-Computer nutzen zu 
können, wurde von Amstrad/Schneider extra für diesen Computertyp ein 
eigener BASIC-Dialekt entwickelt: Das Schneider-CPC-Basic. Nur mit die¬ 
sen speziellen Befehlen und Optionen können Sie den Leistungsumfang 
Ihres CPC voll ausschöpfen. 


Das Lehrbuch 

Auf 150 Seiten wird Ihnen im handlichen Ringordner nicht nur der komplette Befehls¬ 
umfang des Schneider-BASIC dokumentiert, mit dem Index und einer Hervorhebung 
der Schlüsselwörter können Sie auch bequem nachschlagen und Ihre Kenntnisse 
auffrischen. 

Neben den Erklärungen der Schneider-BASIC-Befehle in gedruckter Form vermit¬ 
telt Ihnen das Lehrbuch durch Beschreibung die korrekte Verwendung. Mit Beispie¬ 
len und Listings zur praktischen Arbeit am Computer wird danach der Einsatz in der 
Programmierung demonstriert. 

Die zwölf Kapitel des Lehrbuchs behandeln den gesamten Stoff systematisch und 
nach lerntechnischen Gesichtspunkten in Form eines Kurses. Durch Fragen am 
Ende jedes Kapitels können Sie Ihren Lernfortschritt überprüfen und kontrollieren. 

Die Software 

Auf einer Kassette erhalten Sie alle Programme und Listings des Lehrbuchs, um die 
beschriebenen Techniken nachvollziehen zu können. Dazu noch eine Reihe von 
Spielen zu Ihrem Vergnügen und Programme, die die Möglichkeiten Ihres CPC 
demonstrieren. 

Die zweite Kassette enthält die Lernziel-Kontrolltests für jedes der zwölf Kapitel: Sie 
können dadurch direkt im Dialog mit dem Computer Ihre Lernerfolge kontrollieren. 


C-*Schneider 

u9 covputer omion 

> 
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Schneider BASIC 
Lehrbuch Teil 2 Soft 258 
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29,- DM 
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Das Beispielpro¬ 
gramm zeigt, wie die 
Interrupts genutzt 
werden 


gramm ein, starten Sie es, und weichen 
Sie mit dem Joystick den Meteoriten 
aus! Wie gesagt, sind in diesem Bci- 
spielprogramm sowohl die Befehle 
EVERY und REMAIN als auch DI und 
EI verwendet worden. 

Zuerst soll aber auf die allgemeine 
Funktion der einzelnen Befehle einge¬ 
gangen werden. Das für die BASIC-In- 
terrupt-Programmierung wohl wich¬ 


tigste Kommando ist der EVERY-Be- 
fehl. Seine Syntax ist ähnlich aufgebaut 
wie die des AFTER-Befehls: 

EVERY (Zeit),(Interruptnummer) 
GOSUB (Zeilennummer) 

Auch die Arbeitsweise des EVERY- 
Befehls läßt sich mit der des AFTER- 
Kommandos vergleichen. Nach Ver¬ 
streichen der im Parameter Zeit eben¬ 
falls in 1/50 Sekunden angegebener 


Dauer wird ein Unterprogramm, das 
durch den Parameter Zeilennummer 
gekennzeichnet ist, aufgerufen. Der 
Parameter Interrupt-Nummer kenn¬ 
zeichnet wieder eine von vier Priori¬ 
tätsstufen beziehungsweise eine von 
vier parallel laufenden Interrupt-Ebe¬ 
nen, die gleichzeitig eingesetzt werden 
können. Der große Unterschied besteht 
nun darin, daß der EVERY-Befehl bis 
zu seiner Aufhebung immer wieder 
sein Unterprogramm aufruft. In unse¬ 
rem Programm steuert das EVERY- 
Kommando den Aufruf und die Ge¬ 
schwindigkeit der scrollenden Meteo¬ 
riten. Durch Verändern des Zeit-Para¬ 
meters in Zeile 80 kann die Geschwin¬ 
digkeit fast beliebig variiert werden, 
wobei aber darauf geachtet werden 
muß, daß der Wert 6 nicht unterschrit¬ 
ten wird, da ansonsten dem System 
nicht genügend Zeit zur Ausführung 
des Hauptprogramms bleibt. 

In der nächsten Folge: 

- Die Befehle DI und EI 

- Der Befehl REMAIN 

- Selbstprogrammierte Interrupts 

(Jens Buri/cd) 


für 464-664-6128 


10 REM Baslcgrundlagen [1877] 

20 ENT 1,100,5,1 [665] 

30 MODE 2 [513] 

40 EVERY 10,1 GOSUB 60 [467] 

50 BORGER INT(RND*27 ) :GOTO 50 [1649] 

60 zah]=zahl+l:PRINT zahl; [2155] 

70 SOUND 1,100,5,7,0,1 [1545] 

80 RETURN [555] 


10 REM CPC-Interruptkurs 1.1 [2058] 

20 REM Beispielprogramm fuer AFTER [1003] 

30 MODE 1 [506] 

40 BORGER 0 [1008] 

50 INK 0,0:INK 1,2:INK 2,26:INK 3,6 [1514] 

60 WINDOW #1,18,22,12,14 [1079] 

70 WINDOW #2,1,40,20,25 [1471] 

80 PAPER #1,1:PAPER #2,0 [1815] 

90 PEN #1,2:PEN #2,3 [837] 

100 PEN 3:LOCATE 13,2 [954] 

110 PRINT"> > TIPP-TEST <<" [1514] 

120 PEN 2:PRINT STRING$(40 , ) [1158] 

130 PEN 1:PRINT"Du hast 10 Sekunden Zeit.u [9434] 
m so viele Buchstaben wie moeglich nach 
zuti ppen ! ! ! “ 

140 PRINT TAB(13);"Viel Glueck!!!" [2082] 

150 FOR warte=l TO 2500:NEXT warte [2837] 

160 CLS#1:CLS#2 [576] 

170 AFTER 500,1 GOSUB 280 [526] 

180 aus$=CHR$(INT(RND*26)+65) [1450] 

190 CLS#1 [373] 

200 LOCATE #1.3,2:PRINT#1,aus$; [1965] 

210 ein$=UPPER$(INKEY$):IF ein$="" THEN 21 [3047] 

0 

220 IF e1n$=aus$ THEN r=r+l:GOTO 180 [1414] 

230 CLS#1 [373] 

240 LOCATE#2,12,3:PRINT#2,"Falsche Eingabe [3518] 

jij" 

250 FOR warte=l TO 1500:NEXT warte [2164] 

260 CLS#2 [372] 

270 GOTO 180 [401] 

280 CLS #2:PRINT#2:PEN#2,2 [1561] 
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290 PRINT#2," Du hast" ; : PEN#2,3:PRI NT#2,r 

[ 3366 ] 

; :PEN#2,2 


300 PRINT#2,"Buchstaben nachgetippt!!!" 

[2351] 

310 END 

[HO] 

10 REM CPC-Interruptkurs 1.1 

[2058] 

20 REM BeispielProgramm fuer EVERY/DI/EI/R 

[2150] 

EMAIN 

30 INK 0,0:BOR DER 0:INK 1,10:INK 2,26:INK 

3.6 

[1890] 

40 SYMBOL AFTER 228:SYMBOL 228,16,16,16,40 

[3575] 

,56,186,238,170 

50 SYMBOL 229,0,56,126,255,126,254,126,36 

[2417] 

60 MODE 1:PEN 1 

[ 1036 ] 

70 ra=20:rb=24 

[ 592 ] 

80 EVERY 7,1 GOSUB 140 

[350] 

90 IF JOY(0)=4 THEN ORIGIN 1,1:IF TEST((ra 
*16)-24,25)00 THEN GOTO 200 ELSE LOCATE r 
a,24:PRINT CHR$(32):IF ra>l THEN ra=ra-l 

[820?] 

100 IF JOY(0)=8 THEN IF TEST((ra*16)+12,25 
)< > 0 THEN GOTO 200 ELSE LOCATE ra,24:PRINT 

[6755] 

CHR$(32):IF ra< 40 THEN ra=ra+l 

110 ORIGIN 1,1: IF TEST( ( ra*16)-10,40)00 T 
HEN GOTO 200 

[2271] 

120 DI:PEN 2:LOCATE ra,24:PRINT CHR$(228): 
PEN 1:EI 

[3010] 

130 GOTO 90 

[312] 

140 REM Unterprogramm 

[641] 

150 en=en+l:LOCATE ra,rb.PRINT CHR$(32) 

[2485] 

160 LOCATE 1,1:PRINT CHR$(11) 

[832] 

170 IF en < 3 7 5 THEN z = INT(RND*40) + 1:LOCATE 

[3039 ] 

z,1:PRINT CHR$(229) 

180 IF en > 400 THEN END 

[1708] 

190 RETURN 

[555] 

200 a = REMAIN(1) 

[ 1290 ] 

210 tu=INT(RN0*10)+1:SOUND 1,100,100,7,5,5 

[2367] 

,28:FOR t=l TO 360 STEP 30 


220 ORIGIN (ra#16)-tu,400-(16*rb)+4:DRAW 1 
0*SIN(t),10*C0S(t),3:NEXT 

[2872] 

230 FOR t=l TO 360 STEP 30:0RIGIN (ra*16)- 
tu,400-(16*rb)+4 

[2503] 

240 DRAW 10*SIN(t),10*C0S(t),0:NEXT 

[2192] 

250 END 

[110] 
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AMS-Line- 

der direkte Draht zur Firma AMSTRAD 

Neueste Informationen von der Firma AMSTRAD 


Joystickanschluß an PC1512/1640 

Die AMSTRAD PCs 1512 und 1640 
verfügen an der Tastatur über einen 
Anschluß für einen Digitaljoystick. Sie 
können jeden handelsüblichen Digital¬ 
joystick (Joystick mit Schaltern, Ana- 
logjoysticks sind mit Potentiometern 
ausgestattet) benutzen - zum Beispiel 
den AMSTRAD JY2. Die Bewegun¬ 
gen des Joysticks werden wie Eingaben 
der Tastatur abgefragt; sie sind iden¬ 
tisch mit den Cursor-Steuertasten auf 
der Tastatur. Um in einem Spiel mit 
dem Joystick arbeiten zu können, muß 
die Frage, ob mit Joystick oder Tasta¬ 
tur gearbeitet werden soll, mit “Tasta¬ 
tur“ beantwortet werden. Die Bele¬ 
gung der Feuertasten des Joysticks ist 
überdas Hilfsprogramm NVR möglich 
(nähere Angaben finden Sie in Ihrem 
Benutzerhandbuch zum PC 1640 auf 
Seite 594, zum PC 1512 auf Seite 624). 

Fehlt die Abfrage nach der Tastatur 
oder Joystick in Ihren Spielen, dann be¬ 
nötigen Sie dafür eine Game-Card - 
eine PC-Steckkarte zum Anschluß ei¬ 
nes Analogjoysticks. 

Neues Schnittstellenmodul für die 
PCWs 

Passend für die PCW 8xxx und PCW 
9512 bietet die Firma Wiedmann jetzt 
ebenfalls eine Schnittstelleneinheit mit 
je einer seriellen und einer parallelen 
Schnittstelle an. Das Modul ist mit ei¬ 
nem 50poligen Amphenolstecker zum 
Anschluß an die deutsche Version der 
Geräte ausgestattet. Das Modul erhal¬ 
ten Sie zusammen mit einer englischen 
Anleitung für etwa 200 DM. Nähere 
Informationen bei: 

Wiedmann Unternehmensberatung 
Korbiniansplatz 2 
8045 Ismaning 
Tel. 089-965029 

3-Zoll-Laufwerk am PC 

Das Problem der Übertragung von 
CP/M- und LocoScript-Dateien auf 
MS-DOS-Formate hat uns an dieser 
Stelle ja schon öfter beschäftigt. Die 
bisherigen Möglichkeiten bauten dar¬ 
auf, daß Sie über eine serielle Schnitt¬ 


stelle oder über “Fremdlaufwerke“ 
verfügen. Die Firma Wiedmann zeigt 
hier einen neuen Weg auf, der es allen 
Umsteigern möglich macht, ihre 
3-Zoll-Disketten direkt am PC zu bear¬ 
beiten: ein Anschlußset für 3-Zoll- 
Laufwerke an PCs. Das Anschlußset 
erhalten Sie in zwei Versionen: als 
Steckkarte für beliebige PC/XT/AT 
und als externen Anschluß für die Ge¬ 
räte der Serie 2000 von AMSTRAD. 
Mit diesem Anschlußset ist es möglich, 
sowohl die 180-kByte- als auch 720- 
kByte-Laufwerke Ihres PCW oder 
CPC an Ihren PC anzuschließen. 

Zum Lieferumfang dieses Sets gehört 
ein Programm, mit dem Sie die Lauf¬ 
werksparameter menügesteuert ein¬ 
stellen können. Bei korrekter Einstel¬ 
lung arbeitet das 3-Zoll-Laufwerk wie 
jedes andere Laufwerk Ihres PCs - 
mit dem einzigen Unterschied, daß die 
Aufzeichnung im gewählten CP/M- 
Format erfolgt. Dadurch können Sie 
Ihre alten Disketten ohne aufwendige 
Konvertierverfahren direkt unter MS- 
DOS bearbeiten. Besonders in Verbin¬ 
dung mit der für dieses Jahr angekün¬ 
digten PC-Version von LocoScript er¬ 
halten PCW-Besitzer eine ideale Mög¬ 
lichkeit zum “Aufstieg“ in die PC-Welt 
unter Mitnahme ihrer alten Datenbe¬ 
stände. 

Interessenten können gegen Einsen¬ 
dung von 2,40 DM in Briefmarken bei 
der Firma Wiedmann (Anschrift siehe 
oben) nähere Informationen anfordern. 

Druckertreiber für LQ3500 und 
WordPerfect 5.0 

Wie uns von der Finna WordPerfect in 
Eschborn mitgeteilt wurde, können Sie 
von dieser auf einer zusätzlichen 
Druckerdiskette zu WordPerfect 5.0 
jetzt auch einen speziellen Druckertrei¬ 
ber für den AMSTRAD LQ3500 erhal¬ 
ten. Nähere Informationen bei: 

WordPerfect Software GmbH 
Frankfurter Str. 33-35 
6236 Eschborn 
Tel. 06196-9040 


Speicheraufrüstung beim PC2286 

Der PC2286 wird bereits mit 1 MByte 
Speicher ausgeliefert; er läßt sich ma¬ 
ximal bis 4 MByte aufrüsten. Die Auf¬ 
rüstung erfolgt mit SIMM-Bausteinen, 
die mit je 9 RAM-Chips bestückt sind. 
Da das vorhandene Memory nicht mit 
SIMM-Bausteinen bestückt ist, müssen 
zuerst diese Bausteine entfernt werden. 
Es handelt sich hierbei um insgesamt 
zwölf Chips, acht davon, die den ei¬ 
gentlichen Speicher darstellen (DRAM 
256Kx4), und vier Paritätschips 
(DRAM 256K). Diese können bei ge¬ 
öffneter Bodenplatte (drei Schrauben) 
entfernt werden. Sie befinden sich 
rechts unten auf der Plat ine. Links ne¬ 
ben der RAM-Bank sind vier Sockel 
für die SIMM-Karten vorhanden. Bei 
der Bestückung dieser Sockel mit weni¬ 
ger als vier Karten muß immer von der 
linken Seite mit der Bestückung begon¬ 
nen werden. Um den Speicher für den 
Computer adressierbar zu machen, 
müssen noch einige Steckbrücken um¬ 
gesteckt werden. Für die Adressierung 
sind die Brücken LK17 bis 20 (siehe 
Tabelle) zuständig. Zur Anpassung der 
Zugriffszeit sind die Brücken LK 21 
und 22 entsprechend der unten aufge¬ 
führten Tabelle zu stecken. 



SIMM-Baust. 

LK20 

19 

18 

17 

512K 

2x256K+2xLeer 

zu 

zu 

zu 

— 

64ÜK 

2x256K+2x64K 

zu 

zu 

— 

zu 

1 MB 

4x256K 

zu 

zu 

- 

— 

2 MB 

2xlMB-i-2xLeer 

zu 

— 

— 

zu 

2,5MB2x256K+2x 1 MB 

- 

zu 

zu 

zu 

4MB 

4x1 MB 

- 

zu 

zu 

— 


Brücken für Speicherzugriffszeit 
LK21 LK22 

80 ns zu zu 

100 ns zu 

120 ns — zu 

150 ns - 

zu = Brücke gesteckt 
— = Brücke offen 
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I—Briefe 


An unsere Leser 

Die Rubrik »Leserbriefe« ist 
eine Einrichtung für alle Le¬ 
ser, die in irgendeiner Form 
Fragen, Probleme oder Anre¬ 
gungen zu Produkten, Pro¬ 
grammierproblemen oder zu 
unserer Zeitschrift haben. 
Selbstverständlich sind wir 
bemüht, alle Leserfragen zu 
beantworten. Doch haben 
Sie bitte Verständnis, daß wir 
nicht alle eingehenden Briefe 
persönlich beantworten kön¬ 
nen. Oft erreichen uns meh¬ 
rere Briefe zum gleichen 
Thema, einer davon wird 
dann stellvertretend für alle 
in unserer Zeitschrift beant¬ 
wortet . |h re pc-Redaktion 


Neue Durchwahlnummern 

für die Hotline 

Für eilige Anfragen können Sie 
jetzt Ihren Redakteur direkt er¬ 
reichen. Jeden Mittwoch von 
17.00 bis 20.00 Uhr stehen Ih¬ 
nen zur Verfügung: 

Claus Daschner (CPC) 

o(0 56 51)80 9 -7 50 


Joachim Freiburg (CPC/PC) 

«(0 56 51)8 09 -7 51 

Ralf Schößler (PCW) 

«(0 56 51)8 09 -7 52 


PS: Die Redaktion behält sich vor, Leserzuschriften in gekürzter 
Form wiederzugeben 


CPC 


Datentransfer CPC und PC 

Den vielen Zuschriften zum 
Thema Datentransfer CPC 
und PC möchte ich noch eins 
drauf setzen. Nachdem ich 
zwei Jahre mit dem CPC 464 
zufrieden war, habe ich mir 
nun einen PC zugelegt, den 
CPC aber behalten. Bisher 
habe ich Daten auf abenteu¬ 
erliche Weise umkopiert von 
3 “ auf 3,5 “, dann über einen 
Bekannten auf 5,25“, wobei 
mir das Programm “File¬ 
transfer“ aus dem Sonder¬ 
heft 7/89 wertvolle Dienste 
geleistet hat. Es läuft mit 
Emulator auch auf dem CPC 
464, stürzt bei einigen An¬ 
wendungen aber leider ab. 
Letztens bin ich aber in den 
Besitz einer 5,25 “-Floppy 
für den CPC 464 gelangt. 
Damit geht der Datentransfer 
so einfach, daß ich es zuerst 
kaum glauben wollte. Man 
geht folgendermaßen vor: 
Zuerst formatiert man unter 
DR-DÖS eine Diskette im 
CP/M -160-k Byte-Format 
ohne irgendeinen Zusatz. 
Diese kann auf dem CPC- 
Lauftx'erk ohne weiteres gele¬ 
sen werden (gelesen und 
nicht nur kopiert!). Ebenso 
ist es möglich, Disketten auf 
dem CPC zu formatieren, 
dann aber im IBM-Format 
(das ist nämlich das 
CP/M86-Format). Da man 
dies im B-Laufwerk unter 


den normalen CP/M-Dienst- 
programmen nicht kann, 
empfehle ich den Disc-Ma- 
nager aus dem Sonderheft 
6 / 88 . 

Aber denken Sie daran, BA- 
SlC-Programme mit dem Pa¬ 
rameter “,A “ abzuspeichern. 
Unter DR-DOS können Sie 
die Dateien auf MS-DOS for¬ 
matierte Disketten über¬ 
tragen. 

BA SIC-Programme vom CPC 
lassen Sie am besten unter 
GW-BASIC laufen, da sich 
die Befehle ähneln. Natür¬ 
lich gilt dies nicht für die 
Grafik, die Calls, die Peeks 
und die Pokes. 

Nun möchte ich aber auch 
mit einem Problem an Sie 
oder an die Leser herantre¬ 
ten. Ich habe schon viele 
Fremdlaufwerke an den CPC 
angeschlossen, jedoch ein 
CH IN ON-F353-3.5 “ -Lauf¬ 
werk, 80 Tracks, gekauft bei 
Völkner, verweigert seine 
Mitarbeit. Im Katalogtext 
steht etwas von Shugart-Bus 
alter Norm und einem Extra- 
Signal für Motor-on. Wer 
kann mir da helfen ? 

Jan Schneider 
Königslutter 

Die Möglichkeit des Daten- 
tranfers über DR-DOS (Di- 
gital-Research-Disc-Opera- 
ting-System) wurde von uns 
noch nicht praktiziert, da wir 
unsere Redaktionscomputer 
fest unter MS-DOS instal¬ 
liert haben. Da DR-DOS nur 


bei manchen PC-kompati¬ 
blen Rechnern mit ausgelie¬ 
fert wird, war uns diese 
Möglichkeit nicht so be¬ 
kannt, deshalb ein Danke¬ 
schön für den Tip. Die An¬ 
frage wegen des Disketten¬ 
laufwerks müssen wir an die 
Leser weiterreichen. 

Also, liebe Leser, wenn Sie 
so ein Diskettenlaufwerk be¬ 
sitzen und es betriebsbereit 
an Ihren CPC angeschlossen 
haben, dann melden Sie sich 
bitte. 

Red. 


_CPC_ 

Assemblerecke im Heft 
10/89 

In dem obengenannten Arti¬ 
kel weist Herr Uphoff auf Re¬ 
set-resistente “Schlupfwin¬ 
ker hin. Ich stellte fest, daß 
bei Benutzung der Vortex- 
Speichererweiterung mit ei¬ 
nem CPC 464 dieser 
“Schlupfwinkel “ nicht exi¬ 
stiert, erst nach Abschaltung 
mit dem RSX-Befehl 

IDISBOS. 

Um satte 4 kByte läßt sich 
der Speicher erweitern, 
wenn der Ein- und Ausgabe¬ 
puffer in den Bildschirmspei¬ 
cher verlegt wird. Hier die 
Pokes für den CPC 464: 

P0KE &B091,4:P0KE &B092,0 

:P0KE &B093 > &C0 

Für den CPC 664/6128 lau¬ 
ten sie: 

P0KE &B075,4:POKE &B076,0: 

P0KE &B077,&C0 

Beim Einlesen von Dateien 
wird dann allerdings die 
Bildschirmmaske mit jeweils 
8 Pixel auseinanderliegen¬ 
den waagerechten Streifen 
versehen. 

Karl-Martin Krumholz 
Berlin 

| ' ~CPC~ 

Memory Full 

Beim Versuch, Dateien zu la¬ 
den, die mit “ *.B1N “ abge¬ 
speichert wurden, gibt mir 
mein CPC 6128 die Fehler¬ 
meldung “Memory Full “ 
aus. Die Ladeanweisung ist 
folgende: LOAD “ Dateina¬ 
me. BIN 

Was mache ich falsch ? 

Freddy Voßen 
Würselen 


Manche Binärdateien lassen 
sich nicht ohne weiteres mit 
dem LOAD-Befehl laden, da 
sie einen bestimmten freien 
Speicherbereich benötigen. 
Abhilfe schafft in den mei¬ 
sten Fällen der MEMORY- 
Befehl. Ansonsten gibt es 
auch Binärprogramme, die 
einfach mit RUN '‘Dateina¬ 
me. BIN“ gestartet werden, 
ohne daß ein MEMORY-Be- 
fehl gesetzt wurde. 

Red. 

CPC 


Tips zum Retten von Dis¬ 
ketten mit zerstörtem Di¬ 
rectory 

Kurz vor dem Anlegen einer 
Sicherheitskopie von meiner 
Arbeitsdiskette habe ich mir 
zum zweiten Male das Direc¬ 
tory zerstört, und tagelange 
Programmierarbeit schien 
verloren. 

Da ich für diesen Fall nir¬ 
gendwo Hilfe fand, versuchte 
ich mir selbst zu helfen, und 
es glückte mit einem Disket¬ 
tenmonitor. Der von mir be¬ 
nutzte ist der DISCMON, 
veröffentlicht im CPC-Son- 
derheft 2/86. 

Die beschriebene Aktion ist 
zwar recht zeitraubend, aber 
bei längeren Programmen 
sicherlich immer noch 
schneller, als diese neu zu 
schreiben. Oder wissen Sie 
eine einfachere Methode ? 

1. Mit DISCMON von Track 

2, Sektor 5, bis Track 39, 
Sektor 9, alle Bytes der be¬ 
schädigten Diskette auf Bild¬ 
schirm lesen und zusammen¬ 
gehörige Datenteile chrono¬ 
logisch notieren. Files kön¬ 
nen von fremden Dateiteilen 
sektorenweise unterbrochen 
sein oder alte Dateien über¬ 
schrieben haben, deren Re¬ 
ste am Ende noch sichtbar 
sind! 

Bei BASIC-Programmen ist 
der Vorspannanfang im 
ASCII-Block durch FILENA¬ 
ME. BAS, Programmende 
durch 00 00 00 JA im HEX- 
Block erkennbar. 
Programmlänge ist in HEX- 
Spalte 18 und 19 in Low-/ 
Highbyte-Schreibweise an¬ 
gegeben und zählt acht 
Zeilen- 128 Bytes ab Vor¬ 
spannanfang. 
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Bei ASCll-Dateien ist der 
Anfang nur im ASCIl-Block 
erkennbar. Das exakte Ende 
steht im Hex-Block durch 
Folge OD JA. 

2. Auf einer frisch formatier¬ 
ten Diskette eine File-Dum¬ 
my anlegen, durch Speichern 
eines beliebigen Files mit ei¬ 
ner Länge > = des wieder¬ 
herzustellenden Files unter 
dessen Namen: bei BASIC- 
Programmen mit SA VE 
“Filename. BAS“, bei ASCll- 
Dateien über (Text-) Pro¬ 
gramm, welches sie gene¬ 
riert hat. 

3. Mit DISCMON zusam¬ 
mengehörige Teile der wie¬ 
derherzustellenden Dateien 
entsprechend den Notizen 
sektorenweise einiesen und 
auf File-Dummy ab Track 2, 
Sektor 5, fortlaufend über¬ 
schreiben. 

4. BASIC-Prog ramme je¬ 

weils mit LOAD “Filena¬ 
me. BAS“ laden, listen, te¬ 
sten und mit SAVE“Filena¬ 
me. BAS “ auf A rchivdiskette 
endgültig speichern. 
ASCll-Dateien mit dem Pro¬ 
gramm auf rufen, welches sie 
generiert hat, prüfen und auf 
A rchi vdiskette endgültig 

speichern. 

5. Nachdem jede archivierte 
Datei automatisch die richti¬ 
gen Directory- und Vor¬ 
spanneinträge erhalten hat, 
ist die Dummy-Diskette für 
die Aufnahme des nächsten 
Files erneut zu formatieren. 

Waldemar Ignatowitz 
Dietzenbach 

Ihre aufwendige Methode 
kann sicherlich zum Erfolg 
führen, wenn man sich mit 


der Materie auskennt. Für 
diejenigen, die lieber Vor¬ 
beugen wollen, empfehlen 
wir ein Programm aus Heft 
3/89, Seite 60; das Pro¬ 
gramm “Disketten-Gau“, 
legt eine Kopie des Directo- 
ries auf die Spuren 40/41. 
Das heißt, daß ein zerstörtes 
Directory nicht mehr das 
Ende der Diskette bedeuten 
muß. 

Red. 


PCW 


Tastenspiele und 
Kalender 

Zu den beiden Berichten 
möchte ich ergänzend fol¬ 
gendes mitt eilen: 

• Die in dem Artikel 'Tasten¬ 
spiele ’ beschriebene Metho¬ 
de ist sicherlich in vielen Be¬ 
reichen gut anzu wenden, für 
BASIC gibt es jedoch eine 
elegantere Lösung. Starten 
Sie doch einfach mal folgen¬ 
des Programm: 

10 A$=INPUT$(1):PRINT A$;: 
GOTO 10 

Damit funktionieren fast alle 
Escape-Folgen aus dem 
Handbuch I, Anhang 3, Sei¬ 
te 2; auch die kleinen Buch¬ 
staben (a,b,c,...), die unter 
CP/M in Großbuchstaben 
umgewandelt werden, kön¬ 
nen so verwendet werden. 
Nur die großen ’X’ und ’Y’ 
sind mit Einschränkungen zu 
gebrauchen. Sogar die Far¬ 
be des Bildschirms läßt sich 
nach ’EXIT’-V ’b’+ ’0’ mit 
’EXIT’+'c’+T bezie¬ 
hungsweise ’EXIT’A- ’c’+ V’ 
wechseln. 

• In dem Programm 'Kalen¬ 
der' ist ein kleiner Fehler, 


der das Erntedankfest in den 
Jahren, in denen der 1. Ok¬ 
tober ein Montag ist, falsch 
angibt. 

Das Erntedankfest ist in die¬ 
sen Jahren nicht am 7. Okto¬ 
ber, sondern am 30. Septem¬ 
ber! Das war in den Jahren 
1979 und 1984jedenfalls so, 
also wird es auch 1990 und 
2001 und 2007 so sein, ob¬ 
wohl mir für die beiden letzt¬ 
genannten Jahre noch kein 
offizieller Kalender vorliegt. 
Folgende Ergänzung/Ände¬ 
rung behebt diesen kleinen 
Fehler: 

1695 IF tag-wt=0 THEN tag=mon 
(mon-l)+tag: mon=mon-l 
4l40 DATA 10, 6,Erntedankfest 

Joachim Behnke 
Wesel 


CPC 


RAM-Disk als Laufwerk C: 

Schon mehrmals wurde in 
der PC Amstrad angefragt, 
ob sich die RAM-Disk aus 
Heft 5/87 nicht auch als 
Laufwerk C betreiben ließe. 
Dies ist mit einigen kleinen 
Änderungen durchaus mög¬ 
lich. Gehen Sie wie folgt vor: 

1. Kopieren Sie mit PIP das 
Programm RAMDISC. COM 
auf Ihre Boot-Diskette, falls 
es dort noch nicht vorhanden 
ist. 

2. Starten Sie den Debugger 
DDT mit DDT RAMDISC 
.COM 

3. Geben Sie ein: Stimm 
Fürnnnn setzen Sie die unten 
angegebenen Adressen ein. 
Dann geben Sie den rechts 
daneben stehenden Wert ein 
und zuletzt '. ’ (alle Eingaben 


mit Return abschließen). 
Wenn Sie so alle Daten ein¬ 
gegeben haben, verlassen 
Sie DDT mit CTRL-C. 

4. Geben Sie jetzt ein: SA VE 
3DR1VE-C.COM 

5. Starten Sie DRIVE- 
C.COM, um die neue RAM- 
Disk zu installieren. 

Nun stehen Ihnen unter 
CP/M 2.2 drei Laufwerke 
zur Verfügung. Allerdings 
benutzen Laufwerk B und C 
den gleichen Disk-Parame¬ 
terblock, weshalb sie schein¬ 
bar die gleiche Speicherka¬ 
pazitäthaben. Als Vorsichts¬ 
maßnahme sollten deshalb 
nie gleichzeitig Dateien auf 
Laufwerk B und C geöffnet 
sein. Ansonsten ist die RAM- 
Disk aber voll einsatzfähig. 
Hier die zu ändernden 
Adressen: 

02cf b8 
02e2 3f 
0324 cd 
0325 b4 
0326 b3 
0327 28 
0328 Of 
0356 b8 
0360 b8 
0371 b8 
0378 b8 
03 d2 79 
03d3 fe 
03 d4 02 
03d5 c9 

Harald Schoen 
Erlangen 


i CPC _ 

Spielanfrage 

Neulich bekam ich das Ad- 
venture 'The Fantasia Dia¬ 
mond' für den CPC. Dazu 
habe ich nun ein paar 
Fragen: 


WENDELIN XT DUO Alternativ - das Mullilalent, Schneller XT mil 8088-Prozessor mkl BOBOar Balehls- 
salz Hier lauft las! alles, was sich aul dem Sollwaiemarkl dehndel: CP/M - MS-DOS - DR DOS und EMS M, 
der Rechner liest CP/M-Format wie IBM CP/M 86 . DEC. TRS Kayoroll usw (mil CPC u. DiskPara-Sol direkt 
komp.) 

Grundversion: 

- 040 KB RAM. aulrüstbar nul 1 M 8 14 " Dualmonitor, Hercules u. CGA darstellbar 

- 2x sonoll/ 2 x parallel/Game/balteriegop Uhr - mkl. DR DOS 341, Handbücher 

1 LW 360 KB, - Formatieren, Losen u. Beschreiben von 

- 200 Wall Netzteil, dl, Tastatur 102 Key CP/M-Formatonü 

EMS-Speichorbls32MBabFeslplattenvera möglich, Preis DM 1489,00 

Erweiterungen: 1 MB RAM, Festplatten nach Wunsch. EMS-Soltwaro slmul. bis 32 MB Expandcd Memory 
au! Festplatte . 1 Bitte Info antordorn. 

CPC-ZWEITLaulwerke bis 840 KB Diskkapaznäl unter CP/M, 360 KB unter BASIC 357625' DM 278/328,00 
Zweillaulwerke lür Joyce 3.575.25' DM 248/328.00 


MINI-Tool-Box lür Joyce (formierl/liesl und schreibt MS-DOS-Formato aul 3.5" u. 5,25') DM 
MS-DOS-CP/M-TOOL-BoX lür PC, liest u schreibt CP/M-Disk, emuliert CP/M unter MS DOSOM 

IDCSHELI. • Bonutzeroberllfiche mit Fostpiattenverwaltung, dt, Handbuch DM 

TEXTMAKER 2,02 neu 1 DM 

MEGACAD Grundversion. DM 

Ausbaustufe I: DM 

Ausbaustulo II: DM 

Der günstige Einstieg in die CAD-Technologio 

Wir stellen aus: MECOM SAAR v 18.5.90 ■ 205.90 STAND K 2 


50,00 

59.00 

59.00 

258,00 

298,00 

598,00 

2.280,00 


Soft- u. Hardwarevers. U. Becker 

Fasanenweg 2 - 6690 St. Wendel 8 - Tel: 0 68 56-5 04 


Das deutsche PCW-Hotel-Programm 

HOTEL 4 HOTEL pius 

HOTEL, das Computerprogramm 
für kleine bis mittelgroße Hotels, 
Pensionen. Gasthäuser und Herbergen 

• Reservierung/Buchung 

• Registrierung/Check-in 

• Rechnungserstellung 

• Abreise/Check-out 

Einführungspreis nur DM 498,- 

HOTEL ut der 1 Baustein und l.iuh aul ieden 

PCW B256/851?/9512 

beide Programme zus 

-- 

HOT TL plus, die Programmerweiterung 
mit Gästekartei, Adreß-/Stammdaten- 
verwaltung, selektiver Abfrage für 
Adreßaufkleber/Briefe, Listen, Daten 
und Details ehemaliger Gäste. 
Manueller/automat. Verbuchung von 
Telefon, Zeitungen und Restaurant 
direkt auf das Konto des Gastes. 
Programmsicherung durch Kennwort. 

Einführungspreis nur DM 298,- 

HOTEL plus ist dor 2. Baustein und bonotigt 612 k und 

2 Laufwerke 

ammen nur DM 698,- 


Telefon: 060 81 / 63 20 .0 • Postfach 1718 • 6380 Bad Homburg 
Hochwertige Geschäftssoftware für andere Branchen auf Anfrage 


5’90 PC 55 



























AMSTRAD - Computer 
Software + Zubehör 


AMSTRAD-Computer auf Anfrage 
JOYCE-Zubehör: 

Farbband 8256/8512 (Nylon) 12,90 
dto. 5 Stück 59,90 

3 “-Markendisketten 10 St. 59,90 
Farbband 9512 (Nylon) 18,95 

Typenräder 9512 + SD15 25,00 

Diskettenbox f. 12 Disk. 9,95 

Diskettenbox f. 40 Disk. 14.95 

Diskettenbox f. 80 Disk. 18,95 

Druckerverlängerung 1,5m 39,50 

Centronic-Schnittstelle 179,00 
Staubschutzhaube Tastatur 16,95 
Staubschutzhaube Drucker 19,75 
Staubschutzhaube Monitor 32,85 
Staubschutzhauben 3er Set 64,50 

PC-Zubehör: 

Abdeckhaube Tastatur 
1512/1640 

Abdeckhaube Monitor 
1512/1640 

Laufwerk 3 1/2" int. 1512/1640 
Laufwerk 3 1/2“ ext. 1512/1640 
Laufwerk 5 1/4" ext. 1512/1640 
5 l/4"-Reinigungsdiskette 
3 1/2‘‘-Reinigungsdiskette 
i Monitorverlängerung 1512 
1 Tastaturverlängerung 
1512/1640 

I Diskettenbox f. 100 5 1/4"-Disk. 
Diskettenbox f. 50 5 1/4"-Disk. 


JOYCE PCW 9512 
PC 1640 2 LW/Mono 
24-N.-Drucker LQ5000 


16,95 

39,50 

220,00 

398,00 

398.00 

6.95 

9.95 
59,75 

12,00 

16.95 
15,50 

1.450,00 

1.798,00 

1.150,00 


Weitere Preise auf Anfrage! 
Preisliste gegen Rückporto. 

Lieferung per Nachnahme oder Voraus¬ 
kasse (Versandkostenpauschale 4,50 DM 
bei Vorauskasse, 6,50 DM bei Nachnahme) 

Kosmalla & Partner 

Datenverarbeitung GmbH 
Bliesstr. 5, 6700 Ludwigshafen 
Tel.:0621-519749 


Eine Bitte 
an unsere 
Abonnenten 


Vermerken Sie bei 
Schriftverkehr und 
Zahlungen neben der 
vollständigen 
Anschrift stets Ihre 
Abo-Nummer. 


Sie vermeiden damit 
unnötige Verzögerun¬ 
gen bei der 
Bearbeitung Ihres 
Abonnements. 


Vielen Dank 

Ihre DMV- 
Versandabteilung 


r~Briefe 


/. Was kann ich mit dem 
Fisch aus dem Pool machen ? 
2. Ich befinde mich gerade 
im Musikzimmer und habe 
dem Dirigenten den Stab und 
dem ersten Geiger die Violi¬ 
ne gegeben. Welchem von 
beiden soll ich das Buch mit 
den Noten geben, und wie 
kann ich das Orchester ver¬ 
anlassen, Musik zu machen, 
um die 'Musical Door' zu 
öffnen ? 

Harald Wegener 
Pleinfeld 

Leider befindet sich dieses 
Adventure nicht in unserem 
Besitz. Auch liegen uns da¬ 
für keine Lösungen vor. Wir 
müssen Ihre Frage daher an 
unsere Leser weitergeben. 

Red. 


Allgemein J 

Programme aus anderen 
Zeitschriften 

Der Ausgabe ... des Magazi- 
nes ... habe ich das Pro¬ 
gramm ... entnommen. Lei¬ 
derfunktioniert es nach ge¬ 
nauester Überprüfung nicht 
auf meinem Computer. 
Könnten Sie mir eventuell 
weiterhelfen ? 

Peter Muster 
Musterstadt 

Diese oder ähnliche Anfra¬ 
gen erhalten wir in letzter 
Zeit des öfteren. Leider ist es 
uns nicht möglich, Ihnen bei 
diesem Sachverhalt weiter¬ 
zuhelfen, da wir uns mit die¬ 
sen Programmen nicht be¬ 
schäftigen können. Neben 
grundsätzlichen Aussagen, 
wie: 'Schauen Sie doch bitte 
die Zeilen ... bis ... noch ein¬ 
mal genauer durch; hier 
könnte der Fehler sein’ kön¬ 
nen wir daher auch nicht 
mehr an Sie weitergeben. 
Sicherlich ist es in bestimm¬ 
ten Fällen nicht leicht für 
Sie, hier einen kompetenten 
Ansprechpartner zu finden. 
Jedoch müssen Sie auch be¬ 
achten, daß wir Ihnen viel¬ 
leicht grobe, aber leider kei¬ 
ne vollkommen ausreichen¬ 
de Hilfestellung gewährlei¬ 
sten können. Also, bitte 
haben Sie Verständnis, wenn 
wir keine “Fremdprogram¬ 
me“ bearbeiten können. 

Red. 


PCW 

List 2.1 

Leider hat sich in dem Bo¬ 
nusprogramm List 2.1 von 
der Databox 3/90 ein kleiner 
Fehler eingeschlichen. Er 
kann wie folgt behoben 
werden: 

In der Datei 'List _ l.Inc’ 

muß nach Zeile 272folgende 
Anweisung eingefügt werden: 
ASSIGN (FCB [HpDat], AktFile- 
Name); 

In der Datei 'Analyse.Ine’ 
muß die Zeile 333 entfernt 
und anschließend nach Zeile 
334folgende Anweisung ein¬ 
gefügt werden: 

WITH AktPos [1] DO DatNum := 
SUCC (DatNum); 

Anschließend muß das ge¬ 
samte Programm List noch 
einmal als COM-File compi- 
liert werden. 

A ndreas Feldner 
Kümmersbruck 


CPC 


Einmalige Erfahrung? 

Vor einigen Jahren wurde 
ein wirksamer Tip zur Besei¬ 
tigung des Bildschirmflim- 
merns veröffentlicht. Dazu 
brauchte auf der Computer¬ 
platine lediglich die Löt¬ 
brücke LK 4 geschlossen 
werden. Bei der Benutzung 
einiger Programme - zum 
Beispiel ConText, einige Spie¬ 
le und CP/M Plus - ergab 
sich jedoch bei mir, daß bei 
Erreichen des unteren Bild¬ 
schirmrandes das Programm 
gewissermaßen eingefroren 
war. Der Cursor verschwand, 
und nichts ging mehr. 
Nachdem ich die Lötbrücke 
wieder geöffnet hatte, funk¬ 
tionierten die Programme 
einwandfrei. 

Henry’ Dähn 
Bad Harzburg 

Allgemein 

Verharmlosung des Alko¬ 
holproblems (1) 

Mit Erschrecken habe ich die 
Veröffentlichung des Pro¬ 
gramms "Blu talkoh ol-Be¬ 
rechnung“ in Ausgabe 3/90 
zur Kenntnis genommen. Ich 
muß davon ausgehen, daß 
Sie die möglichen Folgen in 


D 


Ihre Überlegungen vor der 
Veröffentlichung nicht mit 
einbezogen haben. 

Bedenkt man, daß sehr viele 
Leser Ihrer Zeitschrift Ju¬ 
gendliche und Heranwach¬ 
sende (und somit möglicher¬ 
weise auch Fahranfänger im 
Straßenverkehr) sind, so 
muß man zwangsläufig zu 
dem Schluß kommen, daß 
eine derartige Programm¬ 
veröffentlichung eine absolut 
verantwortungslose Hand¬ 
lung darstellt. 

Informativ möchte ich Ihnen 
zur Kenntnis geben, daß ich 
von Beruf Polizeibeamter bin 
und als solcher seit etwa 
zehn Jahren Verkehrs Unfälle 
aufnehmen muß. Sie werden 
sicherlich wissen, daß eine 
der Hauptursachen die Teil¬ 
nahme am Straßenverkehr 
unter Alkoholeinwirkung ist. 
Die Folgen derartiger Unfäl¬ 
le sind in den meisten Fällen 
um vieles höher als bei “nor¬ 
malen " Unfällen. 

Es sei an dieser Stelle festge¬ 
stellt, daß das von Ihnen ver¬ 
öffentlichte Programm in 
keiner Weise geeignet ist, die 
Blutalkohol-Konzentration 
festzustellen und erst recht 
keinen Rückschluß auf die 
Fah rtüchtigkeit zuläßt. 

Auch der von Ihnen (scherz¬ 
haft?) angesprochene Port, 
bei dem man durch Hinein¬ 
blasen die Promille bestim¬ 
men könnte, wäre dazu nicht 
in der Lage. 

Die Bewertung des Pro¬ 
gramms (analog der drei 
Ampelphasen), wie Sie 
schreiben - mit einer Por¬ 
tion Nummer Sicher, ist 
ebenso unsinnig und gefähr¬ 
lich wie rechtlich falsch. 

Es ist sehr wohl möglich, 
auch mit einem Wert unter 
0,8 Promille den Strafbe¬ 
stand des §316 StGB — 
Trunkenheit im Straßenver¬ 
kehr — zu erfüllen. 

Stellen Sie sich vor, einer Ih¬ 
rer Leser glaubt sich mit die¬ 
sem Programm in die Lage 
versetzt, seine Fahrtüchtig¬ 
keit feststellen zu können. Ihr 
Hinweis auf Seite 42, daß Sie 
sich des Falles nicht anneh¬ 
men, falls ein Leser in eine 
Kontrolle gerät und seinen 
Führerschein verliert, ge¬ 
nügt hier ganz sicher nicht. 
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Haben Sie hierbei auch dar¬ 
an gedacht, daß vor einer 
solchen Kontrolle ein schwe¬ 
rer Verkehrsunfall passieren 
könnte ? 

Der abschließende Hinweis 
der Redaktion zeigt klar die 
Unreife der zeichnenden Re¬ 
dakteure dieses Problem be¬ 
treffend. Der hervorragen- 
den Aufklärungsarbeit, bei¬ 
spielsweise des Bundes ge¬ 
gen Alkohol im Straßenver¬ 
kehr, der Verkehrswachten 
und der Polizei, dürften Sie 
mit Ihrer Veröffentlichung 
stark entgegengewirkt haben. 
Ich fordere die verantwortli¬ 
chen Redakteure auf, in Ih¬ 
rem nächsten Heft deutlich 
auf die Problematiken, die 
bei Anwendung des Pro¬ 
gramms entstehen können, 
hinzuweisen. 

Siegfried Dreibholz 
St. Augustin 


[Allgemein 

Verharmlosung des Alko¬ 
holproblems (2) 

Ich bin seit Anfang 1986 eif¬ 
riger CPC-User und ebenso 
lange Leser der (C)PC Inter¬ 
national. 

Nun bin ich beim Durchblät¬ 
tern des neuesten Heftes 
doch so sehr über ein Pro¬ 
gramm gestolpert, daß ich 
Ihnen nun schreibe. 

Es geht mir bei meiner klei¬ 
nen Kritik um das Blutalko¬ 
hol-Berechnungsprogramm 
(Ausgabe 3/90). Ich finde es 
schon seltsam, wenn hier 
(spielerisch?) das Problem 
“Alkohol und Straßenver¬ 
kehr“) aufgearbeitet wird. 


Nun ist doch wohl hinläng¬ 
lich bekannt, daß zwar bei 
uns in der Bundesrepublik 
ein Autofahrer oder sonsti¬ 
ger Verkehrsteilnehmer mit 
einem Blutalkoholgehalt bis 
zu 0,8 Promille keine straf¬ 
rechtlichen Folgen zu erwar¬ 
ten hat, was aber letztlich 
nur als ein “juristisches Au- 
genzudrücken“zu werten ist. 

Das angesprochene Pro¬ 
gramm gaukelt meiner Mei¬ 
nung nach dem Benutzer eine 
Sicherheit vor, die keines¬ 
falls gegeben ist, denn die 
Ausgangsdaten sind doch 
sehr grob. In der Beschrei¬ 
bung ist zwar auf die Unge¬ 
nauigkeit hingewiesen wor¬ 
den, doch wirkt der Hinweis 
vor dem Hintergrund Tau¬ 
sender Verkehrstoter und 
-verletzter, die jährlich der 
“Waffe“ Alkohol zum Opfer 
fallen, etwas mager. 

Sie rühmen sich immer wie¬ 
der, daß Sie nicht bereit 
sind, in Anzeigen Program¬ 
me anbieten zu lassen, die 
gewisse Gefahren für Leib 
und insbesondere für die 
Seele der Käufer in sich ber¬ 
gen. Sie setzen entsprechen¬ 
de Programme einfach auf 
den Index, was ich durchaus 
bejahe. Insofern wäre es 
wahrscheinlich richtiger ge¬ 
wesen, das oben genannte 
Programm auf einen ähnli¬ 
chen Index zu setzen oder zu¬ 
mindest nicht zu veröffentli¬ 
chen. 

Ich will mit dieser Kritik 
nicht die Leistung des Pro¬ 
grammierers schmälern, der 
neben gedanklicher Arbeit 
wahrscheinlich auch Mühe 


hatte, das Programm in 1 
kByte unterzubringen. 

Klaus Weisbrich 

Haste 

Daß die Veröffentlichung 
des Blutalkohol-Programms 
bei einigen Lesern zu Un¬ 
mutsäußerungen geführt hat, 
können wir in gewisser Wei¬ 
se nur begrüßen. Die abge¬ 
druckten Briefe sprechen so 
in aller Deutlichkeit noch 
einmal die Meinung der Re¬ 
daktion aus, die offensicht¬ 
lich im Beitrag selbst nicht so 
herausgekommen ist, wie 
wir glaubten. Wir haben den 
Artikel mit voller Absicht in 
unterhaltsamer Weise ver¬ 
faßt, um den eindeutig unter¬ 
haltsamen Wert des Pro¬ 
gramms herauszustellen. 
Daß sich trotzdem einige Le¬ 
ser hierüber aufgeregt ha¬ 
ben, verstehen und bedauern 
wir im nachhinein. Den Vor¬ 
wurf der Unreife weisen wir 
allerdings zurück; offen¬ 
sichtlich ist unser eindeuti¬ 
ges Statement (Zitate: “Auch 
mit der kleinsten Menge 
Blutalkohol hat der Wagen ln 
der Garage zu bleiben.“ 
“Sprit im Auto? - Ja danke. 
Sprit im Blut? - Nur ohne 
Auto!“) in der Aufregung 
untergegangen. 

Red. 


PC 1512 

EGA auf dem 1512 

Wie mir verschiedene Com¬ 
puterhändler hier in Hanno¬ 
ver mitgeteilt haben, ist es 
unmöglich, den Amstrad PC 
1512 auf EGA umzunisten. 


Meine Frage lautet daher: 
Entsprechen diese Angaben 
der Wahrheit, oder ist es 
möglich, einen EGA-Moni¬ 
tor und eine EGA-Karte am 
1512 zu betreiben? 

Dirk Wilkop 
Hannover 

Auch in diesem Punkte be¬ 
wahrheitet sich die Theorie 
eines Autoherstellers über 
die Unmöglichkeit. Natür¬ 
lich können Sie fast alles mit 
Ihrem Amstrad PC 1512 an¬ 
stellen. Ihre Frage betref¬ 
fend möchten wir Sie gern 
auf unsere Ausgabe 7/89 
verweisen. Der Artikel “Aus 
E’ wird 'V’“ steht unter 
dem Motto: Beim 1512 führt 
der grafische Weg von CGA 
über EGA zu VGA! 

Red. 


_Allgemein | 

Reihenfolge der Uniter- 
Dateien 

Im Programm Uniter (PC 
Amstrad 3/90) werden Kas¬ 
settenbesitzer zwar auf kei¬ 
nen Fehler, dafür aber auf 
eine kleine Unkomfortabili- 
tät stoßen. 

Alle Kassettenbesitzer soll¬ 
ten in Listing 3 die Zeilen 90 
und 100 lauschen, so daß 
sich folgendes ergibt: 

90 SAVE “Uniter.gra“,b,&A000, 
&498 

100 SAVE “uniter.mc'‘,b,&9000, 
&19B 

Nach dieser Änderung sind 
alle für das Programm nöti¬ 
gen Dateien in der richtigen 
Reihenfolge auf der Kassette 
vorhanden, und der Betrieb 
ist problemlos. Red. 


FIBUPLAN - Buchführung für 
PC, JOYCE oder CPC 

Einfaches Buchführungsprogramm auf der Basis einer doppelten Buchfüh¬ 
rung. FIBUPLAN ist menuegesteuert und besitzt übersichtliche Eingabemas¬ 
ken zum Aufbau einer EDV-unterstützten Buchhaltung. 

o 60 definierbare Konten (PC 80), 4-stellige Nummern 
o Kontenplan anzeigen, Kontostand errechnen 
O Ausdruck von Grundbuch und Kontenblättern 
o bequem mit einem Laufwerk zu nutzen 

O FIBUPLAN Diskette und Anleitung nur 148,- DM 

Versand p. Vorkasse (portofrei). Nachnahme (zzgl. 5 DM) 

Fordern Sie jetzt unser aktuelles Info an (bitte Computertyp angeben). 

vsm 

Elfriede van der Zalm, Software-Entwicklung & Vertrieb 
Schieferstätte, 2949 Wangerland 3, Tel. 0 44 61/55 24 


ä™ES3;5"Di skettenstati onen 



CPC,Jogce 8256 ,8512 u.9512,Euro-PC,ftnstrad 2086 

| Exter ne Laufwerke -Prof i desl gn-i nternes Netzte! l| 

bedienungsfreundlich-sehr leiser Lauf 

CPC 3,5" 820 KB 

volIkcmpatibei zu Basic,CPM 2.2 
u.CPM Plus,umschaltbar auf 180KB ,komplett incl.Software DM:289.00 

Joyce 3,5“ 720 KB 

problemlos u. schnell anschließbar mit Anleitung u.Kabel, 
wie ein eingebautes 3“ B - Laufwerk zu betreiben DM:269.00 

Speicheraufrüstung 256 KB auf 512 KB origin.257 Chip DM:120.00 

Spezi alunschaltkabel f.8512 B-Intern zu B-Extern DM; 30.00 

problemloser Betrieb von 2 B-Laufwerken 

Teamdri vecopij CPM-MS-Dos Dl sk.-Kopi erprg. f.360/720 KB DM:59.00 
beide RIchtungen,incl. OOS-Formatierer 360 /720 KB u.Umlautkonverter 

Preise zzgl.Porto u, Verpackung,Versand p.Nachnahme,Liste kostenlos 
Krebs electronic Datentechnik-Hard-u.Software 6751 Weilerbach 
_Tel.06374-6878 BTX 063744432 
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I—Kleinanzeigen 


Biete Software 


Verk. LOCOSCRIPT 2.16 (ORIGINAL+ 
Handbuch) + 15CF2-Disk. + Disk.-Box 
NP 270 DM, VB 150 DM, 06403-67446 


»CPC-PD SPIELE + ANWENDERPRG* 
LISTE 100 PF bei: Peter Breuker, 
Rektenstraße 10,4930 Detmold 1 


CPC-SPIELE (DISK) ab 12,- DM 
nur bei EDV-CLOOTS G 


* Wirtschaftliche Programme 

* für die Arztpraxis auf 

* dem Schneider CPC, Joyce, PC * 

* Fa. EFFEKTA, Am Wiggert 9c, 

»4500 Osnabrück, 0541/442416 G 


** Dias ordnen mit dem Computer ** 
CPC 464/664/6128, JOYCE und PC 
bis zu 100000 Dias; Suchzeit 
1 Sekunde. Info gegen Rückporto 
bei: Dipl.-Ing. W. Grotkasten, 

Birnenweg 6, 7060 Schorndorf 
Tel. 071 81/42846 G 


BONZOs SUPER MEDDLER Vs. 4.0: 
DAS VIELSEITIGSTE PROGRAMM FÜR 
BAND-DISK-KOPIEN (alle CPCs). 

Auch für allerneueste Kopierschutz¬ 
methoden! 3"-Disk. mit über 
1200 (!!!) Lösungshinweisen nur 
DM 65, - + Versandk. Ausführl. 

Infos gg. Freiumschlag! MARTINA 
HIPPCHEN, Pf. 100966, 5000 KÖLN 1 G 


ENDLICH! PD-SOFTWARE AB DM 1, - 

Für IBM/Kompat., Kat-Disk, gratis. 

M. Karbach, Remscheider Str. 18, 

5650 Solingen 1 G 


ACHTUNG!! ERWACHSENE 

12 Disk., 5 1/4 oder 3 1/2", mit delikaten 
Programmen f. IBM PC + Kompatible 
Nur DM 40, - VS/Bar. M. Karbach 
Remscheider Str. 18, 5650 Solingen G 


VERKAUFE DESKTOP-PUBLISHING- 
PROGRAMM, 12 5,25 DISKETTEN, 1 
DEUTSCHES HANDBUCH, NEUPREIS: 
1027 DM, FÜR 270 DM. INFO: 

B. KAROLCZAK, DORFSTR. 43, 

2061 STUBBEN 


****** KONTO * MASTER ****** 

Das Kassen- oder Haushaltsbuch 
für IBM PC/XT/Komp. mit Pull- 
Down-Menüs, Passwortsch., Hilfe- 
Fenster, Summenkonten, Ausdruck. 
5 1/4" Disk mit dt. Anleitung 
N U R 40, - DM + NN-Geb. 
Neugebauer, Schwellerhaldestr. 2, 
7410 Reutlingen, T.: 071 21/58872 


################# 

PD-SERVICE-LAGE bietet Ihnen: 
################# 
Public Domain & Shareware z.B: 
über 1000 ! DEUTSCHE Programme ! 
über 400! Disk PD-SPIELE und 
neueste INTERNAT. Programme!!! 
Kopierkosten: 4,50 - 2,70 DM !! 
Alleinvertrieb: ro-KARTEI 
von Roland Otter 
Kat, f. IBM/Kompat. g. 1,80 Porto 
PD-SERVICE-LAGE: Bernd Schulz, 
Postfach 17 43, 4937 Lage/Lippe 
Auch alles auf 3,5" lieferbar I 
Low - Cost - Software! 
################ G 


■ CPC & JOYCE PUBLIC DOMAIN ■ 

• Ein Info ist für 2x100Pf erhältlich • 

■ PDI, Pf. 1118, D-6464 LinsengerichtG 


PUBLIC-DOMAIN-SOFTWARE. JE 5 1/4" 

DISC NUR 1, - DM! LISTE GEGEN 1, - 
DM BEI: THOMAS RETSCH • HINTERE 
GASSE 54/1 ■ 7306 DENKENDORF. 


PUBLIC DOMAIN f. IBM u. Kompt. 
ÜBER 4000 geprüfte Disk für 
Schneider/AMSTRAD 1512/1640 
KATALOGDISKETTE 3, - Schutz¬ 
gebühr. G. SANDER, HINTERORTSTR. 
30,2841 WAGENFELD G 


JOYCE wg. Systemwechsel SW: Mica/ 
Loco2.16/HW/Literatur günstig 
zu verk. ab 19 Uhr Tel. 02 28/32 6309 


SOFTWARE FÜR VERSICHERUNGS¬ 
AGENTUREN, SPEZIELL KFZ-TARIF- 
PROGR. Z.B.: DM 400, - ANFRAGEN 
AN VERSOFT, GRAEFFSTR. 3, 

5000 KÖLN 30 G 


Biete Hardware 


PC 10 MB, 2 LW, MON, 1500 DM 
(06051)73745 


Verk. JOYCE-Drucker inkl, Einzelblatt¬ 
einzug MM3, VB 150 DM, Tel.: 
06403-67446 (ab 18 Uhr) 


Gebrauchtcomputer mit Garantie 
SCHNEIDER - AMSTRAD • PEACOCK 
CPCs * JOYCE * PC * XT * AT * 
HARDWARE #»****#***■**##** 

SOFTWARE * ab sofort noch * 

BÜCHER * günstiger * 

ZEITSCHRIFTEN **************** 
Ersatzteile & Reparaturdienst 
Alles zu echten Superpreisen. 
Ständiger Ankauf. 

Höchstpreise für Ihren "ALTEN" 
bei Computer-NEUKAUF INI 
Sofort unseren KATALOG anford. 
Schutzgebühr 3, - DM in Marken 


oder einfach anrufen! 

EDV-Cloots, 

5132 Übach-Palenberg 5, 

Zeisstr. 7, Tel.: 02451/46608 G 


■ AdLib Soundcard 599,- 

■ M +T Synthesizercard 398, - 

■ HAGEN PCs, C. Wiesemann Str. 49, 

■ 8767 Wörth, 09372/5831 G 


CPC Hardware, Floppy, XT 
& AT Computer, Drucker. 

Ankauf, Reparaturen, 02303/1 3345 
Manfred Kobusch, 

Bergenkamp 8, 4750 Unna G 


CPC 6128/Color + STARDRIVE 5 1/4" 
Zweit-Lfw + STAR-TEXTER + -DATEI 
+ 9 orig. Spiele (Silent Service u.a.) 
für 800 DM: VORTEX VHF-1,150 DM; 
GT65.50 DM; Tel 061 84/53915 


7-KANAL-RELAIS-INTERFACE zum 
Steuern von Robotern, Fischer¬ 
technik, Modelleisenbahnen usw. 
Treibersoftware erhältlich für 
alle CPCs. Info gratis bei 
Stefan Kraus, Schulstraße 60, 

6832 Hockenheim, Tel 06205/41 60 


CPC 6128 + Farbmonitor/Drucker/ 
Lit./Softw./Joyst./>80 Games 
z.B. Capt. Blood/Star Raiders 11/ 
Star Wars/Cholo/Spindizzy/Blue 
War/Space Ace/Sailing usw. 

+ Wordstar/Discology für 500 DM 
wegen Systemwechsel zu verkauf. 
Tel: 07623/622 96, ab 17 Uhr 


Verk. CPC 464 + FD1 + viele Zeit¬ 
schriften + Bücher + Software; fordert 
Liste bei Joachim Tröster, 

Lindenstr.14, 7414 Lichtenstein 3 


JOYCE 8512, 20MB FESTPLATTE, 
SCRIPT2, FILE2, MAIL2, SPELL2 UND 
VIELE AND. SOFTWARE. FIBU, 
STATISTIKSTAR, MULTIPLAN 
TEL0219 176451, DM 1200. 


Suche Hardware 


Aufsteiger kaufen ihren "Neuen" 
nur bei EDV-CLOOTS G 


PPC-512-ANFÄNGER SUCHT USER, 
DER SEINEN LAP MIT FESTPLATTE 
ERWEITERT HAT. HABE GLEICHEN 
WUNSCH UND SUCHE ERFAHRUNG, 
DIETER JESSE, TEL 07246-1453 


Verschiedenes 


♦fr*#**#*###****##*#*##*######** 

STEIGEN SIE AUF ZU TOPDAT_plus 

Adreß- / Kunden- / Vereins¬ 
verwaltung für JOYCE/CPC 61281 
Leistungsdaten der DOS-Klasse! 
Intelligentes Serienbriefmodul, 
abgestimmt auf WORDSTAR, LOCO¬ 
SCRIPT Vers. 1 und 2 I 99, - 

Test-Hit 9/89 DBASE Benutzer¬ 
oberfläche ASSI 79, - 

Kpl. LOCO-Familie lieferbar I 
JOYCE ZWEITLAUFWERKE AB 298, -1 
JOYCE Festplatte / BTX-Modul! 
Gratis-Infos anfordern bei 
NR Ws JOYCE Spezialisten: 
acw-Soft, Tel. 0228/636818, 

Breite Str. 16, 5300 Bonn 1 

****#### 4 #**#*##****##*#*##*#*Q 


upLink bringt Daten u. Progr. 
vom CPC u. JOYCE (m. CPS 8256) 
direkt zum PC/XT/AT. Transfer 
über die parallelen Schnitt¬ 
stellen. Komplett 198 DM + NN. 

Info. / Bestellung: CONCEPTION 
GmbH, Hubertusweg 14, 2000 
Hamburg 61, Telefon: 040/584503 
Telefax 040/587352 G 


Disketten-, Datenkonvertierung 
JOYCE, CPC auf MS-DOS, ATARI 

Bernd Drost, Schulstr. 67, 

6382 Friedrichsdorf, Tel. 061 75/604 G 


!!!! BESUCHEN SIE UNS II! 

Vom 18.-20. 5. nach Saarbrücken 
zu den 7. ELEKTRONIK & COMPU¬ 
TERTAGEN SAAR, der Verkaufs- und 
Informationsmesse. G 


ORIGINAL SCHNEIDER ESCON CPC464, 
MATHE-GENIE II + III UND ANDERE 
SPIELE v. SCHNEIDER 089/6803937 
HARDWARE Schneider CTM 640 FÄRB. 


VERKAUFE BÜCHER FÜR SCHNEIDER 
COMPUTER UND DISKETTENLAUF¬ 
WERK DDI-1, TEL. 089/9032268 


SUCHE DEUTSCHSPR. ANLEITUNG 
FÜR "ELITE" AUF DEM CPC 6128- 
ENGL. DISKETTENVERSION. 
WOLFGANG THEN, JOSEF-SIMON- 
STR. 165,8500 NÜRNBERG 50 


PC-INTERNATIONAL 4/86-6/89 
zu verkaufen, Tel. 0221/61 4313, 
Rainer Webel, Langemassl, 5000 Köln 


Clubs 


USER-CLUB für JOYCE-Anwender! 
Info gegen Rückporto von: 
JOYCE-USER-CLUB, c/o Je. Berghof. 
Roseggerstr. 5, 5600 Wuppertal 2 


AMSTRAD-PC-1512/1640-USER-CLUB 
bietet mtl. Zeitschrift, Software, 

Hilfe und mehr für alle. 

Inf. gg. Rückp. von Rolf Knorre, 

Postf. 2001 02, 5600 Wuppertal 2 


Das ist Ihre 
Chance... 

Schon eine Kleinanzeige 
bringt oftmals großen Er¬ 
folg und hilft, neue Kon¬ 
takte zu knüpfen. 

Nutzen Sie unser Angebot 
und profitieren Sie von der 
Tatsache, daß unsere Zeit¬ 
schrift 

»PC Amstrad« 

jeden Monat von zigtau¬ 
send Computer-Interes¬ 
sierten gelesen wird. 

Möchten Sie etwas ver¬ 
kaufen, tauschen, oder su¬ 
chen Sie das »Tüpfelchen 
auf dem i« - dann sollten 
Sie eine Karte ausfüllen 
und an unseren Verlag ab¬ 
senden. 

Ihre Annonce erscheint 
dann in der nächsterreich¬ 
baren Ausgabe. 

Wir möchten ausdrücklich 
darauf hinweisen, daß wir 
keine Anzeigen veröffent¬ 
lichen, aus denen ersicht¬ 
lich ist, daß es sich hierbei 
um Veräußerungen von 
Raubkopien handelt. 

Des weiteren machen wir 
darauf aufmerksam, daß 
indizierte Computerspiele 
nicht in Form von Anzei¬ 
gen beworben werden 
dürfen. 
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'Hotel’ und ’Hotel + ’ 

Hotelverwaltung par excellence 

Der PCW ist seit jeher ein Computer, welcher für die unterschiedlichsten 
Anwendungen benutzt wird. Von der Textverarbeitung über Dateiprogram¬ 
me bis hin zu Spielen gibt es für ihn so ziemlich alles, was das Herz begehrt. 
Nun wurde das englische Erfolgsprogramm Hotel von Cavalier Software für 
Sie ins Deutsche übersetzt und gleichzeitig in der Bedienung noch anwen¬ 
derfreundlicher gestaltet. 


Hotel, ein in englischen Zeitschriften 
hoch gelobtes Programm für das Hotel- 
und Gaststättengewerbe, ist eine Alter¬ 
native zu ’aufgetunten' PC-/XT-/AT- 
Computern, welche sicherlich auch 
nicht viel mehr Luxus bieten und somit 
nur ein (in machen Fällen unnötiges) 
Mehr an Ausgaben bedeuten. 
Schließlich beinhaltet es eine komplet¬ 
te Zimmer- und Gästeverwaltung und 
Extras, die einfach zu einem Pro¬ 
gramm dieser Preisklasse gehören 
müssen. Neben einer Telefon(gebüh- 
renjverwaltung finden Sie einen Menü¬ 
punkt, der sich mit dem Zeitungswesen 
beschäftigt, obwohl unserer Meinung 
nach hier etwas zuviel des Guten getan 
wurde. 

Installation 

Haben Sie sich für Hotel entschieden, 
werden Sie schon bei der Installation 
des Programms bemerken, daß es sich 
hierbei um ein voll durchdachtes Soft¬ 
warepaket handelt. Genaue Anweisun¬ 
gen von Handbuch und Programm er¬ 
möglichen Ihnen eine schnelle Ab¬ 


wicklung dieser Phase. Nur durch die 
etwas länger dauernden Kopiervorgän¬ 
ge wird eine kurze Kaffeepause nötig. 
Sind alle Anweisungen befolgt worden 
und ist das Programm richtig instal¬ 
liert, müssen erst einmal einige Ein¬ 
stellungen getätigt werden. 

Bastelarbeiten 

Es ist sicherlich sinnvoll, damit anzu¬ 
fangen, jedes bestehende Zimmer in 
den Computer einzugeben. Hierzu 
müssen Sie erst einmal in die 'Zimmer- 
kontrolle’ gehen und dort den Menü¬ 


punkt 'Neues Zimmer anlegen' an¬ 
wählen. 

Nach Eingabe der Zimmernummer ge¬ 
ben Sie nun den Zimmertyp ein. Han¬ 
delt es sich um ein Einzelzimmer mit 
oder ohne Dusche, oder ist es gar eine 
Hotelsuite? Als nächstes wird nun der 
Zimmerzustand abgefragt. Zehn ver¬ 
schiedene Möglichkeiten — von 'Ver¬ 
fügungsbereit ’ über ’Rohrschaden’ bis 
hin zum ’Handtuchwechsel’ — können 
hier angewählt werden. Diese Zu¬ 
standsliste ist später im Menüpunkt 
'Täglichen Zimmerzustand anzeigen 
und beischreiben' aktualisierbar. 

Ist jetzt noch eine kurze Bemerkung zu 
dem Zimmer notiert worden, kann mit 
dem nächsten weitergemacht werden. 
Vom Programm aus werden bis zu 999 
Zimmer unterstützt, welche sicherlich 
nie voll ausgenutzt werden. 

Sind alle Zimmer eingegeben und 
überprüft, werden nun die Saisonpreise 
für die einzelnen Zimmertypen auf den 
aktuellen Stand gebracht. Zuerst wer¬ 
den die Saisondaten eingetragen, und 
nun können je nach Zimmertyp die sai¬ 
sonabhängigen Preise für die einzelnen 
Zimmertypen gespeichert werden. 
Auch wenn es so aussieht, die Installa¬ 
tionsprozedur ist noch nicht zu Ende, 
denn da gibt es noch einen Menüpunkt, 
der sich mit dem Zeitungswesen be¬ 
schäftigt. Eine Liste aller abonnierten 
Zeitschriften kann nun dem Computer 
beigeschrieben werden. Wünscht ein 
Kunde beim Einzug eine Tageszeitung, 
so wird sie ihm jeden Morgen zuge¬ 
stellt (damit Sie das nicht vergessen, 
können Sie jeden Morgen eine Liste 
ausdrucken). Eine Belastung und Bu¬ 
chung auf seinem Konto wird automa¬ 
tisch vorgenommen. 

Daten-Dschung el 

Die Verwaltung all der von Ihnen bis¬ 
her eingegeben Daten übernimmt ab 
sofort der Computer. Sie geben jetzt le¬ 
diglich Ankünfte, Reservierungen und 
ähnliches ein, und der Computer be¬ 
rechnet für Sie alle Kosten, die dem 
Gast entstehen. Damit Sie sich trotz¬ 
dem noch in diesem 'Daten-Dschungel' 
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Abbildung 1: Herr Müller hat gebucht 
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Abl7ildung 2: Ganz ohne Papier geht 's auch nicht. Eine Anmeldekarle tut sicherlich not 


zurechtfinden, gibt es, wo es ange¬ 
bracht ist, die Möglichkeit, Listen auf 
Bildschirm oder Drucker auszugeben. 
Die Anzahl der Eingaben wurde be¬ 
wußt auf ein Minimum beschränkt, da 
es - wie jeder weiß - gerade im Hotel¬ 
gewerbe recht stressig abgehen kann. 
Bewerten Sie diese Aussage jedoch 
besser selbst. 

Arbeitsabläufe 

Anhand eines Beispiels wollen wir Ih¬ 
nen nun erklären, wie im Programm 
verfahren werden muß, damit wir eine 
korrekte Buchung vornehmen können. 
Herr Müller aus Frankfurt ruft bei uns 
an und bittet um Auskunft, ob bei uns 
im Zeitraum vom 22.3. bis zum 
24.3.90 ein Doppelzimmer mit Dusche 
und WC frei ist. 

Folgende Eingaben sind vom Haupt¬ 
menü aus zu tätigen: 

B' - Reservierung und Ankünfte 
'A' - Zimmerverfügbarkeit 
’H' - Doppelzimmer mit Dusche/WC 
<RET> 

'22.03.90' <RET> 

'T <RET> (Anzahl der Übernach¬ 
tungen) 

Nun sucht der Computer, welches 
Zimmer in diesem Zeitraum noch zu 
vergeben ist. Tritt der Fall ein, daß 
kein Doppelzimmer mit Dusche und WC 
frei ist, sucht er automatisch ein ande¬ 
res heraus und teilt Ihnen dieses mit. 

Ist dem Computer mittels ’N' mitgeteilt 
worden, daß er nicht weiterzusuchen 
braucht, und der Gast dieses Zimmer 
zu dem genannten Preis nehmen möch¬ 
te, geben wir nun die Personalien des 
Gastes ein. Je nach Absprache wird 
nun eine Ermäßigung vereinbart, und 
der Familienname wird noch einmal in 
den Computer getippt. Letztendlich be¬ 
stätigen wir die Buchung und beant¬ 


worten die Frage, ob der Herr schon 
einmal Gast bei uns war. 

Ein kleiner Zeitsprung 

Heute, am 22.03.90, gegen 16 Uhr 
kommt Herr Müller und teilt uns seine 
Ankunft mit. Mit dem Computer regi¬ 
strieren wir nun im Untermenü Reser¬ 
vierung, daß Herr Müller cingetroffen 
ist. Der Computer sucht jetzt nach ei¬ 
nem Herrn Müller und bringt uns bei 
Erfolg die Daten des Herrn Müller auf 
den Bildschirm. 

Wir notieren uns nun gegebenenfalls 
das Autokennzeichen und die Uhrzeit, 
zu welcher Herr Müller gerne geweckt 
werden möchte. Möchte Herr Müller 
von unserem Angebot Gebrauch ma¬ 
chen, morgens eine Zeitung vor der 
Tür zu finden, notieren wir dies eben¬ 
falls. 

Das Programm unterstützt bis zu drei 
Zeitungen pro Gast. 

Ist nun noch die Ausweisnummer ge¬ 
speichert, kann unser Gast sein Zim¬ 
mer beziehen, und wir drucken uns 
derweil eine Anmeldekarte aus. 

Zwei Tage später... 

...möchte Herr Müller unser Haus zu¬ 
frieden verlassen. Er bezahlt seine 
Rechnung per Scheck, und nach Aus¬ 
druck der Quittung wird das Zimmer 
wieder frei gemacht. Der nächste Kun¬ 
de kann kommen und das soeben ge¬ 
räumte Zimmer belegen. 

(rs) 


Anfragen zu diesem Programm richten Sie bitte an 
Data-Junker. Adolf-MöUer-Srr. I. 6390 Usingen, wo 
Sie das Komplettpaket Hotel und Hotel + zu einem 
Preis von 698. - DM erhallen können. 

Empfehlenswert ist es auf jeden Fall, neben Hotel auch 
gleich die Erweiterung Hotel + in Augenschein zu neh¬ 
men. da Ihnen so alle im Text beschriebenen Funktio¬ 
nen zur Verfügung stehen. 


Diskettenlaufwerke 


• Anschlußfertig l Sie brau¬ 
chen wirklich nichts mehr. 

• Qualitätslaufwerke von TEAC 

• 2*80 Spuren, 1 MegaByte un¬ 
formatierte Speicherkapazität 

• 1 Jahr Garantie ! 


JOYCE 

3 . 5 " 249 .- 

5 . 25 " 328 .- 


Alle Diskettenlaufwerke sind ohne tech¬ 
nische Kentnisse leicht als Zweitlaufwer¬ 
ke an Ihren JOYCE anzuschließen. Sie 
funktionieren auch mit einer Speicherer¬ 
weiterung problemlos. Die Kapazität be¬ 
trägt 1 MB unformatiert und 726 KB 
formatiert. Die 5.25" Stationen verfügen 
über ein eigenes Netzteil (VDE) und eine 
40/80 Track Umschaltung (notwendig für 
MsCopy). 

Für den Betrieb mit unseren 5.25" Lauf¬ 
werken wurde das Programm MsCopy 
entwickelt. Es ermöglicht den Datenaus¬ 
tausch zwischen Ihrem JOYCE und ei¬ 
nem PC. 

MsCopy 49.- 


CPC 

3 . 5 " 279 .- 

5 . 25 " 328 .- 


Zweitlaufwerke mit 830 KB formatierter 
Kapazität unter CP/M, 2 x 360 KB unter 
Amsdos bzw. BASIC. Alle Laufwerke 
werden serienmäßig mit einem Seiten¬ 
umschalter ausgerüstet, so daß beide 
Diskettenseiten genutzt werden können. 
Unter CP/M geschieht die Umschaltung 
automatisch. Im Lieferumfang sind die 
Programme DiskPara und MsCopy 
enthalten. 

DiskPara 

für alle CPC’s 79.- 

Programm zur Erhöhung der Disketten¬ 
kapazität. Ermöglicht je nach Laufwerk¬ 
styp Kapazitäten bis 830 KB unter CP/M. 
Vollkompatibel läuft z.B. mit: 

Turbo Pascal, DBase und Wordstar. 
Erfolgreich getestet in Schneider Aktiv 
5 / 67 , c’t 5/87, PC Int. 6/87, CPC 4/87, 
Happy Comp. 4/87, M&T Sonderheft 

Frank Strauß Elektronik 

Schmiedstr. 11 6750 Kaiserslautem 

Tel.: 0631 / 67096-98 Fax : 60697 
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Prowort-Office 

Fakturieren mit dem Textprogramm (2 ) _ 

Nachdem wir im ersten Teil näher auf Prowort-Filer eingegangen sind, wollen wir hier einige Tips und Hilfestellun 
gen für den ’Zweiten Teil’ des Paketes, also Prowort-Office geben.__ 


Prowort-Office wird entweder aus 
dem Eingangsmenü von PROWORT- 
FILER oder direkt aus Prowort mit 
<X OM> aufgerufen. Der Ablaut 
des Programms ist selbsterklärend 
und leicht verständlich. Zudem ist die 
Beschreibung im Handbuch-File so 
ausführlich, daß sich eine weitere Be¬ 
schreibung erübrigen würde, wenn 
nicht Haken und Ösen den Umgang 
mit PROWORT-OFFICE erschwer¬ 
ten. 

Wer Artikel verkauft und berechnet, 
für den ist das Programm fast ohne 
Änderung verwendbar. Mit der Op¬ 
tion E — Konfiguration ändern kön¬ 
nen problemlos Warenbezeichnungen 
und Preise eingegeben, verschiedene 
Rabatt- und Mehrwertsteuersätze fest¬ 
gelegt und gleich die ersten Rechnun¬ 
gen, auch auf vorgedruckten Rech¬ 
nungsformularen geschrieben wer¬ 
den. Lediglich zur optimalen Benut¬ 
zung von Adressendateien müssen 
einige Änderungen im Programm 
selbst vorgenommen werden; dazu 
kommen wir in der nächsten Abtei- 
lung. 

Ein paar Änderungen sind nötig, um 
einen besseren Zugriff auf die Adres¬ 
sendatei zu ermöglichen. Wie gesagt, 
PEEKS und POKES sind nicht not¬ 
wendig. Wir laden einfach die Datei 
OM1NVGEN in PROWORT und 
drücken ALT-P. Damit sind wir, Au¬ 
tor und Leser, kompatibel, denn das 
Textprogramm zählt nun die Zeilen 
und nicht mehr die Seiten. Wir ändern 
in folgenden Zeilen: 

86 aO="end" in: al="end" 

(dann wird der Name in der zweiten Zeile 
gesucht); 

94 a0,x,al,a2... in: a0,al,x,a2... 

(die dritte, statt der zweiten Zeile wird 
nicht gedruckt); 

98 ... n in aO in: ... n in al 
(gehört zu Zeile 86); 

100 gefunden: '&a0&’ in: '&a0&&al&' 
(Titel und Name des gefundenen Datensat¬ 
zes werden nun angezeigt); 

103 ... a0="end" in: ... al=“end" und 
115 ... a0=“end“ in: ... al=“end“ 

(siehe oben); 

507 >wm “d ... in: >wm “dq... 

(dann wird die Rechnung in Schönschrift 
gedruckt). 

Diese Änderungen bewirken die pro¬ 
blemlose Verwendung von Adressen, 


in denen keine Telefonnummern ent¬ 
halten sind oder von solchen, bei denen 
die Telefonnummer (evtl, auch Fax 
und BTX) in der dritten Zeile geschrie¬ 
ben steht. 

Freie Rechnungen für Freie 

Für eine individuelle Rechnungsgestal¬ 
tung sind noch folgende Zeilen 
wichtig: 


263 - 269 Der/lusdruck des eingegebenen Absen¬ 
ders läßt sich hier den persönlichen Wünschen an- 
passen. Wird zum Beispiel hei der Adresse keine 
doppelte Schriftbreite gewünscht, müssen die ent¬ 
sprechenden Druckersteuerzeichen entfernt 
werden. 

280 - 284 Hier läßt sich die Plazierung des Da¬ 
tums. der Rechnungsnummer und des Bestellzei¬ 
chens editieren. Ungewünschtes kann entfernt 
werden. 

295 Auf dieser Zeile ist der Rechnungstext vorgege¬ 
ben. Er kann ebenfalls nach eigenem Gusto gestal¬ 
tet werden. 


Zusätzlich können noch in den Zeilen 
258, 291,296, 427 und 491 die Lineale 
von Hand verändert werden. 

Nicht alles läßt sich über die Konfigu¬ 
ration ändern. 

Nachdem das Programm OMINVGEN 
angepaßt wurde, wird nach gleichem 
Rezept OMENUE bearbeitet. Nach 
dem Laden findet man ab Zeile 210 das 
Konfigurationsprogramm. In Zeile 247 
steht zu lesen: “Enthält die Adressen¬ 
datei auf Zeile 2 ... “ Da ändern wir die 
Zahl in 3 um und sind fertig. Noch ab¬ 
speichern und schon kann weitergear¬ 
beitet werden. 


/ RECHNUNG DRUCKES’ 

C - GUTSCHRIFT DRUCKEN 
S - KONTOAUSZUG DRUCKEN 
R - RECHNUNGSKOPIE DRUCKEN 


Das sind die eigentlichen Fakturie¬ 
rungsmenüs. Für jeden Kunden können 
auch Kontoübersichten erstellt werden. 
Damit wird das Mahnwesen erleich¬ 
tern. 

FSORT.COM kann als Kommandoda¬ 
tei vom Prowort-Befehlsmodus oder 
vom Filer-Mcnü aus aufgerufen wer¬ 
den. Als gestartete COM-Datei ver¬ 
langt das Programm sofort Arbeitsan¬ 
gaben, das heißt Eingabe der zu sortie¬ 
renden Datei, dann den Namen einer 


neuen Datei, in die sortiert wird (die 
legt unser braves Gerät dann an), und 
schließlich muß man auch kundtun, 
wie man es gern hätte. In Computer¬ 
chinesisch sieht das so aus: FSORT 
< Quelldatei > < Zieldatei > < Op¬ 
tionen > . Wird keine Zieldatei ange¬ 
geben, benutzt FSORT den Quellda¬ 
teinamen für die Ausgabedatei und 
ändert die Extension der ursprüngli¬ 
chen Datei in .BAK um. 

Das auf der Originaldiskette befindli¬ 
che Handbuch-File erläutert sehr aus¬ 
führlich die Installation von FSORT 
auf den verschiedenen Computerty¬ 
pen. Besonders CPC-Akteure müssen 
da unbedingt nachschlagen. 

Für den Joyce mit nur einem Lauf¬ 
werk ist es sinnvoll, bei Arbeiten mit 
FSORT (oder anderen COM-Dateien 
von Arnor) PROWORT in den M- 
Speicher zu laden. Denn beim Verlas¬ 
sen des Programms wird PROWORT 
automatisch angefordert. 

Optionen - Aufklärung tut Not 

Die Zunft derer, die sich eine Grübel¬ 
kiste als Arbeitshilfsmittel zulegen 
(und nach Ansicht technikscheuer 
Ehefrauen eher damit herumspielen), 
bekommt ständig Nachwuchs. Viele 
solcher Laien tun sich schwer, die 
verwirrenden Angaben eines Hand¬ 
buchs gleich zu begreifen. Aber auch 
versierte Anwender stehen oft vor den 
besagten böhmischen Dörfern, wenn 
sie mit einem neuen Programm kon¬ 
frontiert werden. So ist es auch hier. 
An Sortieroptionen gibt es eine be¬ 
ängstigende Menge. Keine Bange! 
Alles ist leichter, als es zunächst aus¬ 
sieht und nur dann schwerer, wenn 
man von dem Programm etwas Spe¬ 
zielles verlangt. 

In FSORT bestehen Sortieroptionen 
aus einem Buchstaben, dem ein Mi¬ 
nuszeichen vorausgeht und dem 
manchmal eine Zahl folgt. 

A — Optionen, die den Typ eines 
Datensatzes definieren 

- Fn festgelegte Datensatzlänge 

- V variable Datensatzlänge 

-T Felder durch TABs begrenzt 
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Name 


Vorname 


Straße 


PLZ/Ort 


PCW | 


Power Drift 32,90/42,90 

Rock'n Roll 33,90/43.90 

Test Drive 2-Duel 32,90/45,90 
Super Wonderboy 32,90/42,90 
Toobin’ 33,90/43,90 

Turbo Outrun —/49,90 
Ghouls'n Ghosts 32,90/42,90 
Tom & Jerry 2 32,90/42,90 

Batman the Movie 32,90/42,90 
Special Action 42,90/52,90 
Gold Silver Bronze 39,00/59,00 
Winners 42,90/52,90 

Supreme Challenge 37,90/44.90 
Shinobi 31,90/41,90 

Microprose Soccer 39,90/49,90 


Ghostbusters 2 


Der Nachfolger von Ghostbusters I ist da. 
Drei interessante Spielstufen warten auf 
das Geisterjäger-Quartett. Nehmen Sie 
den Kampf gegen die Geister auf. 

Best.-Nr. 900 DM Kass. 33,90/Disk. 42,90 


POWER PER POST 

präsentiert die neuen CPC GAMES 


Fordern Sie unseren 


kostenlosen 


Gesamtkatalog an ! 


CPC-Katalog 


Das Programm muß wissen, ob die zu 
sortierende Datei variabel angelegt 
wurde oder testgelegte Felder auf¬ 
weist. Bei variabel konfigurierten 
Feldern wird logischerweise -V ein¬ 
geben. Wir tun es trotzdem nicht und 
drücken nur RETURN. Warum das? 
Nun, weil -V als Voreinstellung be¬ 
reits in Klammern angezeigt wird. 
Nur bei festgelegten Dateien muß 
— F, zuzüglich der festgelegten Fel¬ 
deranzahl (Leerfeld nicht verges¬ 
sen!), eingegeben werden. 

B - Option Sortierfeld 

Wenn nicht anders vereinbart, wer¬ 
den die Datensätze nach dem ersten 
Feld sortiert. Wird eine andere Sor¬ 
tierung gebraueht, gehen wir in die S- 
Option. Dies gilt sowohl für feste als 
auch für variable Datensätze. Es be¬ 
deutet: 

—A alphabetische Sortierung 

-Z reverse alphabetische Sortierung 

— P Personen-Namen-Sortierung 

— W Sortieren nach dem ersten Wort 

-L Sortieren nach dem letzten Won 

-.V Numerische Sortierung 

-D absteigende numerische Sortierung 


Einfache alphabetische Sortierung und 
reverse alphabetische Sortierung müs¬ 
sen nicht lange erklärt werden. A 
kommt vor B. Revers ist es umgekehrt. 

P — Personen-Namen-Sortierung 

Diese Funktion nimmt das letzte Wort 
auf der angegebenen Zeile und stellt es 
an den Anfang, bevor die Sortierung 
beginnt. So kann nach Nachnamen sor¬ 
tiert werden, ohne daß die Adresse in 
fürchterlichem Amtsdeutsch gehalten 
sein muß, wie etwa: 

Müller Hans Egon. 

Oft werden auch Namen von Organisa¬ 
tionen (zum Beispiel Soft GmbH) mit 
Personennamen gemischt. In der Per¬ 
sonen-Namen-Sortierung würde die 
Firmenbezeichnung dann zwangsläu¬ 
fig als “GmbH Soft” einsortiert. Um 
dies zu vermeiden, erkennt FSORT 
ein Zeichen, das signalisiert: “sortie¬ 
re dieses Feld mit einfacher Sortie¬ 
rung.“ Es ist der Klammeraffe “ @ 
der solches bewirkt. (Auf Amstrad 
PCW finden Sie das Zeichen “ @ “ 
mit EXTRA-Taste 3/&, Amstrad- 


CPC-Benutzer verwenden statt des¬ 
sen CTRL-X Z). 

W — Erstes Wort 

Diese Funktion ist ähnlich wie die 
einfache Sortierung. Fangen zu sor¬ 
tierende Zeilen von verschiedenen 
Datensätzen mit dem gleichen Wort 
an, sieht das Programm die Sätze als 
identisch an und sucht nicht weiter. 
Dies kann nützlich sein, wenn man 
versehentlich doppelt gespeicherte 
Adressen herausfinden möchte. 

L — Letztes Wort 
Das haben bekanntlich die Frauen. In 
FSORT arbeitet die Funktion wie W 
— ERSTES WORT, vergleicht aber 
nur das letzte Wort auf der angegebe¬ 
nen Zeile. 

N — Numerische Sortierung und 
D - Absteigende numerische Sor¬ 
tierung 

Eine Nummer am Anfang des Feldes 
wird zur Sortierung benutzt, wobei 
der folgende Text ignoriert wird. 
Fängt das für die Sortierung relevante 
Feld nicht mit einer Zahl an, wird der 
Datensatz als Leerzeile behandelt. 


Footballer of the Year II 


Ziel dieses Spieles ist es, sich in der ersten englischen 
Division durchzusetzen. Außerdem nehmen Sie an 
nationalen und internationalen Wettbewerben teil. Füh¬ 
ren Sie Ihre Mannschaft zum Sieg. 

Best.-Nr. 903 DM Kass. 32.90/Disk. 42,90 


Mehr Informationen 
finden Sie in unserem 
Hauptkatalog speziell 
für Ihren CPC. 


(D 

07252/3058 


Bestellen Sie 
noch heute Ihr 
Game 


Lieferung per Vorauskasse, zuzügl. DM 4,- 
(Ausl.6,-), Nachnahme DM 6,50 (Ausl.10,-) 


Coupon ausschneiden und senden an: 

Power per Post (inh. w.Rätz) 
Postfach 1640 
7518Bretten pci 5/90 


Jack Nicklas Golf 

Jack Nicklas Golf bietet Ihnen 
\ jl alles, was ein Golfsimulant 

,.• €1 braucht: Die interessantesten 

Golfplätze der Welt, Wind, 
Wetter, Bälle und Golfschlä- 
^ Ü ger. Das Grün wartet bereits 
auf Sie. 

Best.-Nr. 835 DM Kass. 32,90/Disk. 49,90 


Epyx Action 

Fünf ausgezeichnete Programme befin¬ 
den sich auf diesem neuen Sampler: 
4*4 Off Road Racing - Street Sport 
Basketball - Impossible Mission 2 - 
California Games - Winter Edition 

Best.-Nr. 914 Kass. 43.90/Disk. 52,90 
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C - Zusätzliche Möglichkeiten 

- T Saniere tabulierte Spulten 

- Cn Land n (nur auf Amstrad CPC) 

- H Optionen listen 

- Qn Rückfrage, wenn n-Felder Obereinstimmen 

Das muß nicht näher erklärt werden, 
ist aber im Handbuch genau be¬ 
schrieben. 

T — Sortierung von tabulierten 
Spalten 

Die ’T-Option’ veranlaßt FSORT, ein 
TAB-Zeichen als Feldbegrenzer anzu¬ 
sehen. Sie erlaubt die Sortierung von 
Dateien, die tabulierte Spalten enthal¬ 
ten, nach beliebigen Spalten, ohne 
daß der Datensatz dadurch verändert 
wird. 

Damit lassen sich zum Beispiel in ei¬ 
ner Lagerdatei Artikel nach Menge, 
Preis oder Bezeichnung sortieren. 

H - Optionen listen 

Wer nur mal eben nachschlagen will, 
für den hält FSORT zusätzliche Hilfen 
bereit. FSORT-H oder FSORT? listet 
aber nur die Optionen -A bis -Qn 
auf. Die wird man sich besser auf ei¬ 
nen Zettel schreiben und an die Wand 
hängen. So sind sie jederzeit greifbar. 
Cn - LAND n (FÜR CPCs) 
ln allen Versionen von FSORT, außer 
für Amstrad CPC, werden sämtliche 
Prowort-Zeichen, zum Beispiel die 
Umlaute, richtig einsortiert und kön¬ 
nen frei verwendet werden. Nur bei 
der CPC-Version haben die Umlaute 
keine separaten Codes. 

Da hilft Cn zum Einstellen einer be¬ 
stimmten Sprache. Die Verwendung 
des LANGUAGE-Befehls hat zur Fol¬ 
ge, daß bestimmte Interpunktions¬ 
symbole als Umlaute ausgegeben wer¬ 
den. Die benutzten Codes sind kom¬ 
patibel zum internationalen Standard¬ 
zeichensatz für Epson-Drucker. Mit 
der C-Option teilen Sie FSORT mit, 
daß diese Codes als Umlaute zu be¬ 
handeln und entsprechend einzusor¬ 
tieren sind. 

Zusätzlich muß eine Zahl eingegeben 
werden, die der Epson-Zeichensatz- 
nummer entspricht. Es gibt folgende 
Wahlmöglichkeiten: 

- Cl Französisch 
— C2 Deutsch 
—C4 Dänisch 
-C5 Schwedisch 

- C6 Italienisch 
— C7 Spanisch 


Wie gesagt, das gilt nur für CPCs. 
Auf allen anderen Maschinen wird 
der gesamte Zeichensatz ohne Proble¬ 
me verarbeitet. 


D - Die Benutzung verschiedener 
Sortiermethoden für verschiedene 
Felder: 

Sind zweitrangige Sortierfelder verein¬ 
bart, ist es möglich, für jedes Feld eine 
andere Sortiermethode zu verwenden. 
Wird eine der Optionen -A, -Z, -P, 
-L, -W, -N oder -D ohne nachfol- 
gede Zahl benutzt, werden alle Felder 
nach dieser Methode sortiert. Die an¬ 
gehängte Zahl begrenzt die Option auf 
das angegebene Feld. 

-S a,b,c,... sortiere nach Feldern 
a,b,c,... 

Hier müssen a, b, c... durch die ge¬ 
wünschten Feldnummern ersetzt wer¬ 
den. Wird -S nicht benutzt, nimmt 
FSORT den voreingestellten werden 
—S1 an. 

Eine negative Feldnummer (—2) be¬ 
deutet: “Zähle die Felder zurück vom 
Ende des Datensatzes ausgehend“. 
—S—3 besagt demgemäß: “Sortiere 
nach der dritten Zeile, von unten ge¬ 
zählt“. 

Sie dienen dazu, Datensätze zu ordnen, 
deren erstes Feld identisch ist; zum Bei¬ 
spiel, wenn der Name Meier zweimal 
vorkommt. Um nach dem zweiten Feld 
und, falls dieses ebenfalls mehrfach 
durch gleiche Bezeichnungen besetzt 
ist, nach dem dritten Feld von oben zu 
sortieren, verlangt das Programm le¬ 
diglich die Eingabe -S-2,3. 

Welche Auswahl verlangt wird, und 
wieviel spezifische Details zu berück¬ 
sichtigen sind, ist FSORT gleichgültig, 
solange die Option logisch ist. Das be¬ 
deutet, FSORT ist zwar sehr variabel, 
verlangt aber sinnvolle Eingaben. 
Erinnern wir uns an die sieben Aus¬ 
wahlbedingungen der S-Option des 
Menüs: 


/ — einfach 

2 — a oder b 

3 — a oder b oder c 

4 — a und b 

5 — a und b und c 

6 - a oder b und c 

7 - a und b oder c 


Weiterhin versteht FSORT noch: 

a größer als b 
a kleiner als b 
gleich oder ungleich 

Es ist wie Weihnachten. Man schreibt 
seinen Wunschzettel und freut sich, 
wenn FSORT auch die ausgefallenen 
Wünsche erfüllt. 

Feldnummern sollten übrigens durch 
Kommata, ohne zusätzliche Leerstel¬ 
len, getrennt sein. 

Haben Sie alles begriffen? Natürlich 
nicht! Dabei ist es ganz einfach: Man 


überlege, wie man die Datei sortiert 
haben möchte, eine Adressendatei 
zum Beispiel nach Berufen und Na¬ 
men. Auf unsere Beispieldatei bezo¬ 
gen heißt es: -S1 (erstes Feld, Beru¬ 
fe), -P2 (Nachnamen auf dem zwei¬ 
ten Feld). Probieren geht über stu¬ 
dieren! 

Q - Suchen nach doppelten Daten¬ 
sätzen 

Bei einer Adressendatei ist es über¬ 
flüssig und portolastig, wenn eine 
Anschrift zweimal enthalten ist. 

Bei der Eliminierung von doppelten 
Lottchen hilft die Q-Option. Wird mit 
Q sortiert, wirft das Programm alle 
annähernd ähnlich geschriebenen Da¬ 
tenfelder aus und fragt, ob es eines 
davon löschen soll (1 oder 2). Durch 
RETURN bleiben beide erhalten. 

Was ist in diesem Fall “hinreichend 
ähnlich“? Nun, es bedeutet, daß die 
jeweils angegebenen “ersten“ Sor¬ 
tierfelder verglichen werden. Wird 
zum Beispiel -S2, -L2, -Q einge¬ 
geben, reagiert das Programm, wenn 
in zwei oder mehreren Datensätzen 
das letzte Wort auf der zweiten Zeile 
hinreichend identisch erscheint. 

Die ’Q’-Option kann auch einen Para¬ 
meter annehmen, um die Möglichkei¬ 
ten zu vergrößern. Wenn Sie — Q3 
verwenden, müssen die ersten Sor¬ 
tierfelder gleich sein und zusätzlich 
noch das zweitrangige Sortierfeld. 
Damit wirft FSORT zwei Hans Mül¬ 
ler erst dann aus, wenn auch die Tele¬ 
fonnummern übereinstimmen. 

Fazit 

Mit PROWORT-FILER bzw. -OF¬ 
FICE wird dem gewerbetreibenden 
Anwender ein praktisches Hilfsmittel 
angeboten. Die Vereinfachung des 
Mail-Merge und die Möglichkeit, di¬ 
rekt aus dem Textprogramm heraus 
fakturieren zu können, erleichtern 
den Bürobetrieb. Aber auch andere 
Anwender werden in FILER gerne 
ihre Adressen und sonstige Daten ver¬ 
waltet sehen. Mit dieser Erweiterung 
von PROWORT wird das preiswerte 
Computersystem Joyce nach wie vor 
eine echte Konkurrenz zu den immer 
billiger werdenden großen Maschinen 
bleiben. 

(Bruno Melchert/rs) 

PROWORT-OFFICE (enthält FILER) Herstel¬ 
ler: ARNOR, Erhältlich im Fachhandel, 
Preis: 119,- DM, PROWORT-FILER allein: 
89,-DM 


64 PC 5’90 



PCW—1 



Male, male, Noten schreibe 

Logo-Funktionen zur Notendarstellung 

Wer gerne seine selbstentwickelten Kompositionen ordentlich aufs Papier 
bringen will, sollte dies mit dem Computer tun. Dazu benötigt man jedoch 
ein geeignetes Programm, da es in LocoScript, wenn überhaupt, nur schwer 
zu bewerkstelligen ist. Wir bieten einige Routinen in DR. LOGO, welche 
Noten, Pausen und was sonst noch so alles dazugehört auf den Bildschirm 
bringen. 


Nachdem Sie LOGO geladen haben, 
legen Sie Ihre Diskette mit dem Pro¬ 
gramm 'Noten' ein und starten dieses 
durch Eingabe von: 
load “noten < RETURN > 
noten < RETURN > 

Dadurch werden die Programmteile 
noten. noten 1 und noten2 geladen, der 
Bildschirm wird aufgeteilt, und das 
Programm wartet auf Eingaben. Es ste¬ 
hen Ihnen nun einige Befehle zur Ver¬ 
fügung, welche jetzt erklärt werden 
sollen. Später sehen Sie dann, wie man 
in der Praxis mit ’noten* arbeiten kann. 

Befehlssatz 

Liniensysteme 

linienl zeichnet das erste Liniensystem; 

linienö zeichnet das sechste Liniensystem. 
Ein Liniensystem umfaßt den Noten¬ 
schlüssel, die Vorzeichen und dann 
noch etwa 24 Zeichen (Noten, Pausen. 
Taktstriche). Rechtzeitig neue Zeile 
anfangen! 

Notenschlüssel 

gs G-Schlüssel (Violinschlüssel) 
bs Baßschlüssel (F-Schlüssel) 


Nach dem Baßschlüssel zeichnet das 
Programm die Noten wie nach dem 
Violinschlüssel. Um also auf der unte¬ 
ren Linie des Baß-Liniensystems eine 
Note zu zeichnen, muß man nicht g, 
sondern e eingeben! 

Vorzeichen 

Vorzeichen für die ganze Zeile (nach 
dem Notenschlüssel eingeben): 

Nach dem Violinschlüssel: 
bl ein “b“ kl ein “Kreuz“ 

b2 zwei “b“ k2 

b3 k3 

b4 k4 


Nach dem Baßschlüssel: 


bbl ein “b“ 
bb2 
bb3 
bb4 


bk 1 ein Kreuz 

bk2 

bk3 

bk4 


Vorzeichen vor einer einzelnen Note: 
b zeichnet ein “b“ vor die Note; 
k zeichnet ein “Kreuz“ vor die Note; 
und az zeichnet ein Auflösungszeichen 
vor die Note. 

Die Vorzeichen werden nach der No¬ 
tenhöhe, aber vor der Notenlänge ein¬ 
gegeben. 


Beispiel: 

a k vo zeichnet ein ais (a mit Kreuz) als 

Viertelnote mit dem Hals nach oben. 

Pausenzeichen: 

gp ganze Pause 

hp halbe Pause 

vp viertel Pause 

ap achtel Pause 

sp sechzehntel Pause 

Notenlängen 

ho halbe Note, Hals nach oben; 
hu halbe Note, Hals nach unten; 
vo viertel Note, Hals nach oben; 
vu viertel Note. Hals nach unten; 
ao achtel Note, Hals nach oben; 
au achtel Note, Hals nach unten; 
so sechzehntel Note, Hals nach oben; 
su sechzehntel Note, Hals nach unten; 
p Note punktieren. 

Notenlängen werden nach der Noten¬ 
höhe und auch nach eventuellen Vor¬ 
zeichen oder Punktierungen eingege¬ 
ben. Ganze Noten brauchen keine be¬ 
sondere Angabe der Notenlänge. 
Beispiel: h p hu zeichnet eine punktier¬ 
te halbe Note der Höhe h mit dem Hals 
nach unten. 

Notenhöhen 

htf tiefes h h 
ctf tiefes c c 
dtf usw. d 
e eh hohes e 

f fh hohes f (oberste Linie) 
g gh hohes g 
a 

Weitere Zeichen 
t Taktstrich 

wa Wiederholungszeichen Anfang 
we Wiederholungszeichen Ende 
n “nichts“ - diese Position bleibt leer 
Mehrstimmige Sätze 
z "zurück“: an die letzte Position kann 
eine weitere Note gezeichnet werden. 
Beispiel: a ho z f ho z ctf hu zeichnet ei¬ 
nen dreistimmigen Akkord: tiefes c, f 
und a jeweils als halbe Note. 
Prozeduren 

Einmal gezeichnete Noten können 
nicht wieder gelöscht werden, ohne 
den Bildschirminhalt zu zerstören. Es 
ist also günstig, längere Tonfolgen 
nicht Zeichen für Zeichen, sondern als 
Prozedur einzugeben. Wenn sich ein 
Fehler einschleicht, kann die Prozedur 
(mit ed “Prozedurname) verbessert 
und dann wieder aufgerufen werden, 
das spart unter Umständen viel Tippar¬ 
beit. Wie sieht die Eingabe für ein Lied 
nun in der Praxis aus? Als Beispiel die 
Melodie von “Der Mond ist aufgegan¬ 
gen“: 

to dermond 
linienl gs bl f vo t 
g vo f vo h vu a vo t 
g ho f vo a vo t 
a vo a vo d vu c vu t 
h hu a vo a vo t 
a vo a vo h vu a vo t 
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_Joyce Programmsammlungen 

Hochwertige Software zu Niedrigpreisen finden 

Proarammsammlung in der Angebotspalette des umv veriages. 
lor1o Autnahe aus dieser Reihe enthält eines oder zwei Programme, die aus verschiedenen 
Anwendungsgebieten kommen Diese Serie erscheint in unregelmäßiger Reihenfolge und wird als kom- 
pfettes Progra mmpaket mit 3"-Diskette und Bedienungsanleitung ausgeliefert. _ 

Joyce-Programmsammlung VOL. VII 


neme mriaiisvuizviuiu ■- 

lesen! Mit GCPM sind Sie über alle Laufwerke immer 
im Bilde 


Arbeiten Sie schnell, bequem 
und komfortabel mit 

GCPM - der grafischen 
Benutzeroberfläche für 
den Joyce. 

Beneiden Sie nicht länger die PC- 
Besitzer! GCPM bietet Ihnen nun auch für 
den Joyce eine ausgefeilte grafische 
Benutzeroberfläche inklusive Maus¬ 
bedienung, Uhr, Taschenrechner, 
Schnittstellensteuerung, Passwort¬ 
abfrage und vielem mehr. 
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So muß Computerbedienung sein! Auch die serielle 
Schnittstelle läßt sich in einem Fenster schnell und feh¬ 
lerfrei einstellen 


GCPM bietet Ihnen unter anderem: 

Steuern Sie alle Funktionen Ihres Joyce wahlweise über Maus 
oder Tastatur. 

Arbeiten Sie mit der Darstellung aller Dateien in Tabellenform 
ähnlich LocoScript und den Standardfunktionen wie Kopieren, 
Umbenennen und Löschen. 

Auf bis zu drei Laufwerken können die Parameter, Suchpfade 
(ohne SETDEF) und das temporäre Laufwerk beliebig eingestellt 
werden. 

Verändern Sie die Dateiattribute, und rufen Sie Programme direkt 
von GCPM aus auf. 

Nutzen Sie die Funktionen zum Verschlüsseln und Komprimie¬ 
ren von ASCII-Dateien und die optionale Passwortabfrage 


Sparen Sie Zeit mit dem integrierten Taschenrechner mit Zwi¬ 
schenspeicher und umfassenden Rechenfunktionen. 
Verändern Sie beliebig die Grundeinstellungen der Schnittstel¬ 
le, des Zeichensatzes, der Tastatur oder Maus, der Diskettenlauf¬ 
werke und des Druckers. 

Ein Screensaver stellt den Monitor bei Nichtgebrauch dunkel. 
Mit dem GCPM-Starterset als Installationsprogramm und mit 
40seitigem Handbuch mit vielen Abbildungen können Sie im 
Handumdrehen GCPM auch auf Ihrem Joyce anwenden. 

Ein Programm, das jeder Joyce-Besitzer haben muß! 

Joyce-Programmsammlung VOL. VII: 

GCPM - grafische Benutzeroberfläche 
(JOYCE PCW 8256/8512) 

3-Zoll-Diskette O^,— UIVI 




Tabellenkalkulation 


Universell ersetzbare Tabellenkalkulation 
zum Erstellen von Monatsbilanzen, 
T-Konten etc. für die JOYCE-Familie 

Funktionen: . 

- Kurze Einarbeitungszeit durch eine übersichtliche Menu¬ 
führung, die alle Fehleingaben abfängt 

- Schnelles Arbeiten durch Belegung der Funktionstasten 

- Einblendung der Formel des aktuellen Feldes am unteren 
Rand 

- Besonders schnelle Berechnungsalgorithmen 

- Schnelle Schreib-/Leseoperationen durch Benutzung der 
RAM-Disk 

- Bis zu 68 Zeichen pro Formel möglich 

- Eigene Befehle zur Verkürzung der Formeln 

- Drei verschiedene Schriftarten beim Drucken 

- Standardmäßig 2574 frei belegbare Felder 

- Akzeptiert auch Exponentenschreibweise 

Vol. VI für alle JOYCE PCWs 
3-Zoll-Diskette 


59,- DM 


Datenbanksystem 


Maximal 27 Felder pro Datensatz, 50 
Stellen pro Feld, 35.000 Sätze pro Datei, 
minimaler Disketten-Spelcherbedarf! 


- Verwendung von Standard-Direktzugriffsdateien (BASIC) 

- Automatisch generierte Maske zur Datenerfassung, Änderung und 

Löschung , > 

- Auf Wunsch Datentransfer aus vorhandenen in neuangelegte 

Dateien , 

- Automatische Eintragung neuer Dateien in das Disketten-Haupt- 

menü 

- Alle Programme werden auf der RAM-Floppy gehalten 

- Listenerstellung mit automatischer Spaltenformatierung und 
Spaltensummen 

- Freie Wahl der Sortierung; Mehrfachsortierkriterien 

- Ohne Lernaufwand SOFORT voll anwendbar, keine Befehlswörter 

- Druckmasken für die beliebig sortierte Datenauflistung am 
Bildschirm oder am Drucker werden automatisch generiert 

- Bei mehrseitigen Auflistungen am Bildschirm Direktsprung zu 
jeder Seite 

- Einmal gewählte Druckparameter werden gespeichert 

VOL. V für Joyce/PCW 8256/8512/9512 
*• PCW 9512 auf Anfrage 
3-Zoll-Diskette 


69,- DM 




Bitte benutzen öie nie DesienKarm 

DMV-verlag • Postfach 250 ■ 5440 Eschwege 
























































































Bild-Editor 

Funktion: Grafikprogramm zum Erstellen von hochauflösenden Grafiken 
welche in eigene Programme eingebunden werden können, sowie deren' 
Ausgabe auf dem JOYCE-Drucker. 

Leistungsumfang: Der mitgelieferten Diskette können Sie alle zum Arbei¬ 
ten mit dem Programm benötigten Dateien entnehmen. Für alle Turbo- 
Pascal-Programmierer wird auch der Programmtext mitgeliefert. 

Funktionen: Durch das Unterscheiden zwischen Grob- und Feinbearbei¬ 
tung ist es möglich, brilliante Grafiken auf das Pixel genau zu zeichnen. 
Losch- sowie Invertierfunktion sind in allen Bearbeitungsmodi aufrufbar. 
Auch Texte können bei der Grobbearbeitung in das Bild gebracht werden 
Im Dateimenü steht neben einer Lade- und Speicheroption noch eine Funk¬ 
tion zur Verfügung, welche zwei Bilder miteinander mischt. Neben dem Ver¬ 
satz des linken Randes vor dem Drucken können noch vier verschiedene 
Druckformate angewählt werden. 


VOL. IV - für Joyce/PCW 8256/8512 


49,- DM’ 


r r Feld-Tab 

Ein BASIC-Programm zum millimetergenauen Ausfüllen von Tabellen, Vor¬ 
drucken und Formularen. Feld-Tab ist menügesteuert und bietet die Anwahl 
der einzelnen Funktionen wie unter LocoScript gewohnt. Geben Sie Seiten- 
lange, Zeiienabstand und Tabulatoren in Millimetern ein, bestimmen Sie 
Schriftweite, Schriftart und Text. Text kann mit LocoScript erstellt werden 
und nach Umwandlung in eine ASCII-Datei in Feld-Tab eingelesen werden. 
Weitere ASCII-Editoren können ebenso verwendet werden wie der komfor¬ 
table programminterne Seiteneditor. Ein unentbehrliches Werkzeug! 


Ein Grafikpaket für Statistiken, Geschaftspräsentationen und viele andere 
grafische Anwendungen! Uber ein Menü sind folgende Funktionen wählbar 

• Balkendiagramme ■ Kurvendiagramme • Strichgrafik 

• Punktediagramme • Textgrafik 

Ein Hilfsprogramm erläutert Ihnen während der Arbeit mit Gsxplot die wich¬ 
tigsten Funktionen. Alle erstellten Grafiken können sowohl am Bildschirm 
als auch auf dem Drucker dargestellt werden. Gsxplot braucht den Ver¬ 
gleich mit wesentlich teurerer Software nicht zu scheuen! 


VOL.III - für Joyce/PCW 8256/8512 zwei Disketten 


59,- DM* 


Super-Dateiverwaltung 

Eine universelle Dateiverwaltung für PCW 8256/8512 zur Erstellung eigener Dateien. 

SUPERdat ist das Hauptprogramm, welches die Daten der gewünschten 
Datei verwaltet. Neben der Eingabe von Daten in die Maske sind mehrere 
Sucharten, so z.B. auch Jokersuchen, möglich. Jede Datei kann maximal 
acht Felder enthalten, wovon jedes höchstens 40 Zeichen enthalten darf 
Die Gesamtlänge eines Datensatzes darf 255 Zeichen betragen. 

SUPERtex Dieses Programm stellt eine Rundschreib- (Mailmerge-)Funktion 
für SUPERdat zur Verfügung. In einen in Laufwerk M: befindlichen ASCII- 
Text (z.B. mit RPED erstellt) werden automatisch vom Anwender ausge¬ 
wählte Einträge aus SUPERdat-Dateien an beliebiger Stelle eingefügt. 
Weiterhin können 30 Datensätze in eine für LocoScript lesbare Datei umqe- 
wandelt werden. 

SUPERcal Der Taschenrechner zu SUPERdat. Dieser bietet neben den 
Grundrechenarten auch Winkelfunktionen, quadratische und Prozentfunk¬ 
tionen. Eine Klammerebene und Memory-Funktionen vervollständigen das 
Leistungsangebot dieses Programms. 

VOL.II - für Joyce/PCW 8256/8512 


49, - DM’ 
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Der Character-Designer 

Funktion: Komfortable Erstellung eigener Zeichensatze auf PCW 8256/ 
8512 und deren Darstellung am Bildschirm! Ausdruck von ASCII-Files in 
diesem Zeichensatz unter CP/M Plus. 

Leistungsumfang: CD.COM ist der Character-Designer, der Editie- 
rung oder Neuerstellung von Zeichensätzen und deren Speicherung er¬ 
laubt. CD-PRINT druckt vorformatierte ASCII-Texte auf dem Joyce-Drucker 
oder anderen Druckern in dem gewünschten Zeichensatz aus. 

CRAZY, ORIGINAL, LOCCHAR und SCRIPT sind mitgelieferte Zeichensät¬ 
ze. SETUP.COM erlaubt als Zugabe die Vorwahl einiger Systemparameter, 
z.B. die der seriellen Schnittstelle, der Tastaturgeschwindigkeit und der 
Floppy-Steprate. 

MGX 

Funktion: Grafische Darstellung von mathematischen Funktionen und be¬ 
liebigen Meßreihen auf Bildschirm oder im Großformat auf dem Drucker. 
Leistungsumfang: Neben den arithmetischen Grundfunktionen sind auch 
weitere Funktionen darstellbar, die z.B. unter Mallard-Basic nicht zur Verfü¬ 
gung gestellt werden. Es können mehrere Funktionen und Meßreihen (die¬ 
se wiederum mit mehreren Meßwerten gleichzeitig) dargestellt werden. 
VOL.I - für Joyce/PCW 8256/8512 

49,- DM* 



Sesam öffne dich! 


BCi DisAsm erschließt jedes ProgrammI 

Wandelt den Programmcode In ein dokumentiertes Assem- 
blerlisting um. Mit normalen Editoren können Sie nun ver¬ 
ändern und modifizieren, und mit gängigen Assemblern 
und Debuggern kann danach wieder assembliert werden. 

Es gibt kaum einen, der BCi DisAsm das Wasser reichen 
kann! 


Auch Experten kennen nicht immer die Lösung, aber sie wissen, wo sie suchen 
müssen. 

BCi DisAsm hilft JEDEM, die verwirrenden und frustrierenden Software-Puzzles 
welche sich beim Umgang mit dem Computer ergeben, zu lösen. Und zwar 
schneHer als mit jedem anderen Produkt, das Sie kaufen können, egal, um 
welche Preisklasse es sich handelt. a 

Mit dem BCi DisAsm erwerben Sie sofort ein Know-how, das Sie normalerweise 
Jahre an Erfahrung kosten würde. Versuchen Sie nicht, das Rad neu zu erfinden! 
BCi DisAsm - Der intelligente Disassembler 

BCi DisAsm ist ein intelligenter, selbsttätig dokumentierender MS-DOS- 
Disassembler. Die ausgefeilten Routinen im BCi DisAsm analysieren in kürzester 
Zeit selbst komplexen und umfangreichen Programmcode und zeiqen dabei 
potentielle Problempunkte auf. 

BCi DisAsm - Das Lernmittel 

brauchen kein Spezialist in Assembler-Programmierung zu sein. 

BCi DisAsm produziert aus jedem beliebigen Programm Ihres IBM-kompatiblen 
Computers ein gut dokumentiertes, leicht verständliches Assemblerlisting. 

BCi DisAsm - Einfach in der Handhabung 

BCi DisAsm kann sowohl über Parameter von der DOS-Kommandozeile aus als 
auch interaktiv über Menüs gesteuert werden. Die Menüstruktur ist Lotus- 
kompatibel und selbstverständlich in Deutsch. Es besteht keine Notwendigkeit 
neue Befehle zu lernen oder ständig im Handbuch nachzuschlagen. BCi DisAsm 
ist unmittelbar anwendbar! 

Minimale Systemanforderungen 

256 kByte RAM, 8088/8086/80186/80286 oder 80386 CPU, MS-DOS oder 
PC-DOS Version 2.0 oder größer 

BCi DisAsm wird Ihnen bei den folgenden 
Schritten helfen: 

1. Lernen Sie Assembler-Programmierung, wenn Sie möchten. 

2. Entdecken Sie, warum Programm XYZ auf Ihrem Rechner nicht 
lauft, und tun Sie etwas dagegen. 

3. Ändern oder entfernen Sie Programmteile. 

4- Sichern Sie sich gegen destruktive Programme ab. Finden Sie einen 
Virus , und entfernen Sie ihn. 

5. Integrieren Sie Code aus compilierten Programmen in eiqene 
Anwendungen. 

6 . Erhöhen Sie die Kompatibilität Ihrer Software. 

7. Passen Sie Software an verschiedene MS-DOS-Versionen an. 
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linien2 gs bl g ho vp f vo t 
g vo f vo h vu a vo t 
g 'no f vo a vo t 
a vo a vo d vu c vu t 
h hu a vo a vo t 

linien3 gs bl a vo a vo h vu a vo t 

g vo g vo f vo t 

end 

Mit dein Befehl ’dermond < RE¬ 
TURN >’ wird dann das ganze Lied 


gezeichnet - aber ganz gemächlich, wie 
das bei Logo üblich ist. 

Ausdruck des Notenblattes 

Ein Ausdruck ist als Hardcopy mit 

< EXTRA > + <PTR> möglich. 
Vorher sollte man jedoch mit ct fs 

< RETURN > den Textbildschirm lö¬ 
schen. 

(Martin Drogat/rs) 


Diese Programme sind in LOGO ge¬ 
schrieben. Nach dem Eingeben soll¬ 
ten Sie zuerst mit SAVE “name 
< RETURN > auf Diskette abge¬ 
speichert werden. Eventuelle Fehl¬ 
eingaben können nun beseitigt 
werden. 


to noten 

load "notenl load "noten2 

setspllt 2 ss cs ct 

end 


abs + 5 note 


:merh + 25 


to 11n1en 

recycle make "merk -360 

repeat 5 [ pd seth 90 fd 720 pu bk 720 seth 180^fd 
end 

to kreis 
seth 0 

pd repeat 15 [fd 2 1t 25] 

pu 

end 

to e 

seth 0 

make "merk :merk + 30 
sety :abs setx :merk 
kreis 
end 
to f 
sety 
end 

to note 
make "merk 
setx :merk 
kreis 
end 
to g 
sety 
end 
to a 
sety 
end 
to h 
sety 
end 
to c 
sety 
end 
to d 

sety :abs + 30 note 
end 
to eh 
sety 
end 
to f h 
sety 
end 
to gh 
sety 
end 
to s 

seth 0 pd fd 23 pu 
end 
to t 

make "merk :merk + 25 setx :merk 
sety :abs seth 0 pd fd 40 pu 
end 

to 1inien 1 
end 
to z 

make "merk :merk - 25 
end 
to gs 

seth 0 make "merk :merk + 15 
setx :me r k sety :abs + 9 
pd repeat 5 [fd 2 rt 25] 
repeat 5 [fd 2 rt 20] 
repeat 11 [fd 2 rt 15] 
fd 30 

repeat 9 [fd 2 lt 25] rt 12 
fd 55 

repeat 10 [fd 2 rt 36] pu 
Listing NOTEN 


abs + 10 note 


abs + 15 note 


abs + 20 note 


abs + 25 note 


: abs + 35 note 


: abs + 40 note 


: abs + 45 note 


make "merk :merk + 15 
end 

sety :abs - 10 note seth 90 pd fd 5 bk 20 fd 15 
end 

setyabs - 15 note sety :abs - 10 seth 90 pd fd 
5 bk 20 fd 15 pu sety :abs - 15 

end 

to dtf 

sety :abs - 5 note 
end 

to 1inien2 
make "abs 130 

pu setpos [-360 170] linien 
end 

to 1inien3 

make "abs 49 

pu setpos [-360 90] linien 
end 

to 1inien4 

make "abs -30 

pu setpos [-360 10] linien 

end 

to 1inien5 

make "abs -111 

pu setpos [-360 -70] linien 

end 

to 1inien6 
make "abs -190 

pu setpos [-360 -150] linien 

end 

to n 

make "merk :merk + 25 

setx :merk 

end 

to k 

pu seth 0 fd 2 seth 270 fd 13 
pd fd 10 

pu seth 180 fd 5 seth 90 

pd fd 10 bk 3 

seth 0 fd 13 bk 20 

pu seth 270 fd 4 seth 0 

pd fd 20 bk 10 

pu seth 90 fd 20 seth 0 

end 

to b 

pu seth 270 fd 20 seth 180 fd 5 

seth 50 pd fd 3 repeat 6 [fd 2 lt 25] repeat 6 [r 

t 2 5 bk 2 J 

seth 50 bk 3 

seth 0 fd 18 pu bk 13 seth 90 fd 20 seth 0 

end 

to kl 

make "merk :merk + 27 
setx :merk sety :abs + 40 k 
end 
to k2 
k 1 

make "merk :merk + 10 setx :merk sety :abs + 26 k 
end 
to k3 
k2 

make "merk :merk + 10 

setx :merk sety :abs + 45 k 

end 

to k4 

k3 

make "merk :merk + 10 setx :merk sety :abs + 32 k 

end 

to bl 

make "merk :merk + 24 
setx :me r k sety :abs + 20 b 
end 
to b2 

Listing NOTEN 
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»JOYCE-Bestellservice« 

Knüller für JOYCE-Fans 

Ich mache von Ihrem Angebot Gebrauch und bestelle hiermit: 

30170 Stck. Joyce-Sonderheft-Superpack 

3 x Joyce-Sonderhefte der Ausgaben 2/87-4/88 29,- DM 

30171 Stck. Joyce-Sonderheft-Superpack-Databox 

5 x3-Zoll-Disketten zu den Ausgaben 2/87- 4/88 79,- DM 
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Stck. JOYCE Programmsammlung Vol. 1 


49,- DM 


Stck. JOYCE Programmsammlung Vol. 2 


49,- DM 


Stck. JOYCE Programmsammlung Vol. 3 


59,- DM 


Stck. JOYCE Programmsammlung Vol. 4 
Stck. JOYCE Programmsammlung Vol. 5 


Stck. JOYCE Programmsammlung Vol. 6 


49,- DM 


69,- DM 


59,- DM 


Stck. JOYCE Programmsammlung Vol. 7 


69,- DM 


+ Porto/Verpackung 

(Inland 4,- DM, Ausland 6,- DM) 

Gesamtbetrag 


□ Den Betrag bezahle ich mittels des beigefügten Verrechnungs¬ 
schecks. 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahme¬ 
gebühr (Bei Lieferung ins Ausland ist Nachnahme nicht möglich.) 


Datum 


Unterschritt (bei Minderjährigen des gesetzlichen Vertreters) 
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bl make "merk :merk + 5 setx :merk sety :abs + 35 

b 

end 
to b3 

b2 make "merk :merk + 5 setx :merk sety :abs + 15 

b 

end 
to b4 

b3 make “merk :merk + 5 setx :merk sety :abs + 30 

b 

end 
to e 

sety :abs note 
end 

to fahn 
pd fd 8 

repeat 3 [rt 6 fd 2 ] 

repeat 3 [bk 2 lt 8] pu bk 8 

end 

to flo 

seth 135 fahn 
end 

to f2o 

flO seth 180 pu fd 7 seth 135 fahn 
end 

to flu 

seth 45 fahnu 
end 

to f2u 

flu seth 0 pu fd 7 seth 45 fahnu 
end 

to fuel1 

seth 270 fd 5 pd make "a 0 

repeat 20 [seth :a fd 4 bk 4 make "a :a + 18] 

seth 90 pu fd 5 seth 0 

end 

to vo 

fuel1 s 

end 

to vu 

fue11 strichu 

end 

to ao 

fueU s flo 

end 

to au 

fuel1 strichu flu 

end 

to so 

fuel! s f 2o 
end 

to strichu 

seth 270 fd 10 seth 180 pd fd 23 pu 

end 

to su 

fuel1 strichu f2u 
end 

to fahnu 
pd fd 8 

repeat 3 [1t 8 fd 2] 

repeat 3 [bk 2 rt 8] pu bk 8 

end 

to ho 

s 

end 
to hu 
strichu 
end 
to pa 

pu make "merk :merk + 25 setx :merk sety :abs + 25 
pd seth 90 fd 10 seth 200 fd 17 
end 
to ap 

pu make "merk :merk + 20 setx :merk sety :abs + 25 

pd seth 90 fd 8 seth 200 fd 15 pu 

make "merk :merk + 5 

end 

to vp 

make "merk :merk + 25 setx :merk sety :abs + 35 pd 
seth 130 fd 7 

seth 210 fd 10 

seth 130 fd 10 

bk 3 repeat 7 [lt 25 bk 2] 

fd 3 pu 

end 

to 11n1en1 
ht 

make "abs 209 

pu setpos [-360 250] llnien 
end 

make "y -0.121869325637817 
Listing NOTEN 


make 

"x -0.990268051624298 

make 

"a 360 

make 

"liny 240 

make 

" 1inx -360 

make 

"abs -190 

make 

"merk -233 


to az 

pu seth 270 fd 20 seth 0 fd 15 seth 180 pd 

fd 22 seth 90 fd 5 seth 180 fd 8 bk 18 seth 270 fd 

5 pu 

seth 180 fd 3 seth 90 fd 20 seth 0 

end 

to hp 

make "x :abs + 21 
make "merk :merk + 25 
setx :merk sety :x 

seth 270 pd repeat 5 [fd 10 bk 10 make "x :x + 1 s 

ety :xj pu 

end 
to gp 

make "merk :merk + 25 make "y rabs + 30 pu setx :m 

erk sety :y pd seth 270 
repeat 5 [fd 10 bk 10 make "y :y - 1 sety :y] 
pu seth 0 
end 
to p 

pu fd 2 rt 90 fd 5 pd fd 2 rt 90 fd 2 rt 90 fd 2 r 
t 90 fd 2 pu rt 90 bk 5 lt 90 bk 2 

end 
to wa 

sety :abs make "merk :merk + 25 setx :merk seth 0 

pd 

fd 40 pu setx :merk - 5 pd bk 40 setx :merk - 4 fd 

40 setx :merk - 3 bk 40 

pu setx :merk + 4 fd 14 pd repeat 4 [fd 2 lt 90] 
pu fd 10 pd repeat 4 [fd 2 lt 90] pu 
end 
to we 

sety :abs make "merk :merk + 25 setx :merk seth 0 


fd 

40 

setx rmerk - 

1 

bk 

40 

setx rmerk - 

2 

fd 

40 

pd 

pu 

pu 

setx rmerk - 9 

fd 

15 

pd 

setx rmerk - 
repeat 4 [fd 

5 

2 

pd 

rt 

bk 

90] 

40 

pu 

fd 

10 pd repeat 

4 

[fd 

2 

rt 90] pu 






end 
to bs 

seth 0 make "merk :merk + 8 

setx :merk sety :abs + 30 pd 

repeat 7 [fd 2 rt 50] 

repeat 10 [fd 2 rt 18] 

repeat 15 [fd 2 rt 5] pu 

seth 0 setx :merk + 18 sety rabs + 34 

pd repeat 4 [fd 2 rt 90] pu 

setx rmerk + 18 sety rabs + 25 

pd repeat 4 [fd 2 rt 90] 

pu make "merk rmerk + 22 

end 

to bb 

make "abs rabs - 10 
end 

to boff 

make "abs rabs + 10 
end 

to bbl 
bb bl boff 
end 

to bb2 
bb b2 boff 
end 

to bb3 
bb b3 boff 
end 

to bb4 
bb b4 boff 
end 

to bk 1 
bb kl boff 
end 

to bk2 
bb k2 boff 
end 

to bk3 
bb k3 boff 
end 

to bk4 
bb k4 boff 
end 

Listing NOTEN 
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PCW und FDC 

Direkte FIoppy-KontroIIe 

Durch Zugriff auf den Floppy-Disk-Controller (FDC 765) des PCW wird 
das Lesen und Schreiben auf Disketten mit 2 x 40 Spuren im Laufwerk B: 
möglich. Ist dort noch ein 5 1/4-Zoll Laufwerk vorhanden, stehen die Tore 
zum Datentransfer mit der MS-DOS - Welt (Standard: 360 kByte auf 2 x 40 
Spuren) auch ohne eine 40/80-Track-Umschaltung weit offen. 


Das Unding — von A: nach B: 

Schwer verständlich ist, warum eine in 
Laufwerk A: formatierte Diskette (40 
Spuren) zwar im Laufwerk B: gelesen, 
dort jedoch nicht beschrieben werden 
kann. Die Lösung liegt im BIOS des 
PCW: Jeder Versuch, auch über Aus¬ 
schaltung der Diskettenerkennung 
(’freeze’) und/oder Änderungen im 
XDPB (eXtended Disc Parameter 
Block) einen Schreibzugriff auf solch 
eine Diskette durchzuführen, wird ent¬ 
weder mit Ignoranz (XBIOS NR. 3) 
oder aber mit einer Fehlermeldung 
(BIOS Write) beantwortet. 

Spielregeln 

Über die XBIOS-Routinen Nr. 15 und 
Nr. 16 (siehe M. Anton im ersten 
JOYCE-Sonderheft) kann der Floppy- 
Controller (FDC 765) direkt angespro¬ 
chen werden. Vorausgesetzt der Flop- 
py-Motor ist angeschaltet und die 
FDC-Befehle und ihre Übermittlung an 

das XBIOS sind bekannt. Motor_on 

und motor._off entsprechen den 

XBIOS-Routinen Nr. 12 und Nr. 13. 


Die Steuerung erfolgt über die Parame- 
tertabellc (Addresse bei Aufruf in HL) 
im COMMON-Bereich: 

Byte 0: CP/M-Bank 
Byte 1,2: Pufferaddresse 
Byte 3,4: Übertrag. Bytes 


Byte 5: Anzahl der FDC-Befehlbytes 

(read/write: 9, reset_fdc: 2, seek_ 

track: 3) 

Byte 6.. 14 : Befehlbytes. 

Der Kontrolleur 

Im Datenblatt des FDC 765 werden die 
Befehlssequenzen genau beschrieben: 
Für einen Read-Write-Zugriff werden 
neun Befehlbytes benötigt. Das Ergeb¬ 
nis der Operation wird in den sieben 
Bytes ab $FFE1 (CP/M Version 1.4) 
dargestellt. Die Statusregister 0 bis 2 
(STR0 .. STR2) codieren den Erfolg 
beziehungsweise Nichterfolg und die 
betreffende Ursache. Zwei Befehlbytes 
sind nötig, um das Laufwerk zurückzu¬ 
setzen (reset-fdc), drei, um eine Spur 
anzufahren (seek-track). Auf die Dar¬ 
stellung der restlichen Befehlsequen¬ 
zen (read-deleted-data, write-deleted- 
data, read-a-track, format-a-track, 
read-id, scan- equal/low/high, specify) 
wurde aus Platzgründen verzichtet. 

In der Praxis 

Um nun 360 kByte im Laufwerk B: be¬ 
schreiben zu können, muß jede zweite 

Spur (flip sides) angefahren (seek_ 

track) und ein ’geschützter’ Bereich im 
COMMON-Speicher für die Parame¬ 
tertabelle eingerichtet werden. Da der 
XDPB für Laufwerk B: (ab $FF65) bei 
dem direkten FDC-Zugriff nicht mehr 
benötigt wird, bietet er sich für die Pa¬ 
rametertabelle geradezu an. 

In dem kleinen Demoprogramm FDC- 
MON.PAS erfolgen die^XBIOS-Auf¬ 
rufe in der Prozedur read_write. In 


Befehl / 

Read Data 

Write Data 

Reset 

FDC 

Seek Track 

Erläuterung 

Befehlsbyte 






Byte 0 

$E5 

$E6 

$07 


$0F 

Code 

Byte 1 

$01 / $05 

$01 / $05 

$01 / 

$05 

$01 / $05 

Drive B: 

Head 0/1 

Byte 2 

Track 

Track 



Track 

Sector 

Byte 3 

Head 

Head 




Kopf 0 / 1 

Byte 4 

Record 

Record 




Record = 2 

Byte 5 

N 

N 




Data per 
Sector = 2 

Byte 6 

EOT 

EOT 




End of 

Track = 9 

Byte 7 

GPL 

GPL 




Gap length 
= $2A 

Byte 8 

DTL 

DTL 




Data length 
= $80 

Ergebniss- 
byte (ab $FFE1): 







Byte 0 

ST0 

ST0 




Status¬ 
register 0 

Byte 1 

ST1 

ST1 




Status¬ 
register 1 

Byte 2 

ST2 

ST 2 




Status¬ 
register 2 

Byte 3 

Track 

Track 




Spur 

Byte 4 

Head 

Head 




Kopf 

Byte 5 

Sector 

Sector 




Sector 

Byte 6 

N = 2 

N = 2 






Befehlssequenzen für den direkten Floppyzugriff 
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Statusreg. 

STO 

Bit 0 

Unit Select 

Bit 1 

Unit Select 

Bit 2 

Head Adress 

Bit 3 

Not Ready 

Bit 4 

Equipment Check 

Bit 5 

Seek End 

Bit 6 

Interrupt Code 


(normal = 0 ) 

Bit 7 

Interrupt Code 


(normal = 0) 


ST1 


Missing Address 
Mark 

Not Writable 
No Data 


Overrun 
Data Error 


End of Cylinder 


ST 2 


Missing Address Mark 
in Data Field 
Bad Cylinder 
Scan Not Satisfied 
Scan Equal Hit 
Wrong Cylinder 
Data Error in 
Data Field 
Control Mark 


Die Fehlermeldungen werden in den Statusregistern 0 - 2 in dieser Form abgebildet 

ihr sind die oben beschriebenen FDC- 
Befehle untergebracht. Es werden 512 
Byte lange Sektoren gelesen bezie¬ 


hungsweise beschrieben. Die Fehler¬ 
behandlung (Prozedur error) wurde 
sehr einfach gehalten. Sie kann ohne 


weiteres detaillierter gestaltet werden. 
Für den Diskmonitor wurde die Proze¬ 
dur read_write um Bildschirmdarstel¬ 

lung und Tastaturabfrage erweitert. 
Über Cursor-/Funktionstasten und 
Hex-Eingabe kann eine beliebige Dis¬ 


kette mit 2 x 40 Spuren untersucht und 
verändeil werden. 

Damit ganze Dateien von CP/M nach 
MS-DOS und zurück übertragen wer¬ 
den können, müssen die FCBs (File 
Control Block) der beiden Betriebssy¬ 
steme ineinander überführt werden. 
Um das Rad nicht neu zu erfinden, 
kann auf das Public-Domain-Pro- 
gramm TRANSFER.PAS zurückge¬ 
griffen werden. Werden hier die Proze¬ 
duren read-sector und wrile-sector 
durch die oben beschriebene Prozedur 
read-write ersetzt, steht mit TRANS¬ 
FER. COM (lauffähige Version auf 
DATABOX erhältlich) die MS-DOS- 
Welt offen. (Clemens Bitter/rs) 


program fdc_mon; 


{*****************************t******) 

(» Disk-Monitor mit direkter FDC 765 *) 
(» Steuerung via XBIOS für JOYCE Lw B: *) 
(* by C.B. 1989 *) 


right_key 

= *6; 

fl 

= 

#26 

1eft_key 

= *1 ; 

f 3 

= 

#17 

up_key 

= 

f 5 

= 

#19 

down_key 

= ‘ *; 

f 7 

= 

#16 

inv_on 

= #27 - p‘; 

exit 

= 

#27 

1n v_o f f 

= #27'q'; 

return 

= 

#13 

back_step 
for_step 
He x 0ig 1 t 

= #27'D'; 
= #2 7'C' ; 
array[ 0 . 

,15] of 

char = 


‘0123456789ABCDEF"; 


type 

Str2 = string[2] ; 


var 

read_code, 1 sb, 

sect_code : boolean; 

key ; char; 

sector,track,mem_no, 

count,hex_dummy,code : integer; 

buffer : array[ 0 . .511 ] of byte; 

function hexb(par ; byte) : str2; 
beg i n 

hexb:=HexDigit[par shr 4] + HexDigit[par and $f); 
end; 

prooedure display_mem; 
beg 1 n 

gotox y(0,8); 

for count:=0 to 511 do wr1te(hexb(buffer(count]).' '); 

end; 

procedure disp1ay_invers(pos1t1on : integer); 
beg 1 n 

^ gotoxy(0 + (position mod 30)*3+l,8 + (positlon div 30) 

wr 1 te ( 1 nv_on ,hexb(buffer[pos 1 t, ion] ) , 1 nv_of f ) ; 
ond ; 

procedure disp1ay(pos1tion ; Integer); 
beg 1 n 

gotcxy(0 + (position mod 30)»3+l,8+ (positlon div 30)) 

write(hexb(buffer[position])); 
end ; 

procedure set_lsb(position ; integer); 
beg 1 n 

wr 1 te(back_step,1nv_on,key,inv_of f) ; 
val{'$'+ key,hex_dummy,code); 

Puffertposition]:=hi(buffertposition]) + hex dummy; 
end; 

procedure set_msb(pos1t 1 on : integer); 
beg 1 n 

wrlte(back_step,back_step,inv_on,key,inv_off,for_step) 
va 1 ('$' + key,hex_dummy.code); 

buffer[position]:=lo(buffer[position]) + <hex_dummy sh 

1 4 ) ; 
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end ; 

procedure set_sec_trac(sector_code : boolean)- 
beg i n 

1f sector_code then 
beg i n 

gotoxy(12,5); 
wr1te(sector:2); 
end 
el se 
begi n 

gotoxy(12,6); 
wr 1 te(track: 2 ); 
end ; 
repeat 
begi n 

read(kbd,key); 
case key of 
up_key : begin 

if sec to r_code then 

if (sector < 9) then 
begi n 

sector;=sector+l; 

write(back_step,back_step,sector :2 
end 

eise eise 

if (track < 79) then 
beg 1 n 

track:=track+l; 

wr1te(back_step,back_step,track : 2) 
end ; 

end ; 

down_key ; begin 

if sector_code then 

if (sector > 1 ) then 
begi n 

sector:=sector-l; 

write(bac k_step,back_3tep.sector:2 
end 

eise eise 

If (track > 0) then 
begi n 

track;=t rack- 1 ; 

w rite(back_step,back_step,t rack: 2 ) 


end ; 


end ; 


end ; 
end ; 

until (key = return) or (key = exit); 
end ; 


procedure screen; 
begi n 

clrscr;writeilnv_on); 
gotoxy(25, 1 ) ;write( ‘ 

gotoxy(25,2);write(‘ FDC - MONITOR 
gotoxy(25,3);write( (360 kB Lw B:) 
gotoxy(0,5);write( 1 Sector : '); 

gotoxy(0,6 );write( ' Spur : '); 

^gotoxy(50,5);write( 1 Cursor up / down Nummer waehlen 

^gotoxy(50,6);write(' < RETURN > bestaetigen 

gotoxy(0,30);write('<F1> Sector waehlen <F5> 

Llstlng FDC 
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Sector lesen <EXIT> Programm beenden '); 


*> 

gotoxy(0,31>;write('<F3> Track waehlen <F7> 


eise par tab[6):=$e5; (* Schre1b-Befeh 

Sector schreiben (Cursor -> Byte.Eingabe in Hex '); 


1 *) 

write(1nv off); 


i f track mod 2 = 0 

end ; 


then 
begi n 

par_tab(7):=$01; (* gerade -> Kop 

procedure read write(sector,track:byte;ad ress:1nteger;r 


f 0 *) 

ead_code : boolean); 


par_tab[9] : =$00 ; 
end 

const 


e 1 se 

pa r_ad r = $ff65; 


beg 1 n 

par tab[7]:=$05; (* -> Kop 

var 


f 1 *) 

par_tab : array[0..15) of byte absolute par_adr; 


par_tab[9]:=$01 ; 

procedure error; 


par_tab[8] := track div 2; (* nur jede zwei 

beg i n 


te *) 

1f memr$ffel] > 5 then 


par_tab(10):=sector; (* richtiger Sec 

beg i n 


tor * ) 

gotoxy(0,28); 


par_tab[11]:=$02; (* number per se 

wrlte('* Fehler * Statusregister 0 ',mem[$ff 


ct *) 

el],' •); 


par_tab[12]:=$09; (* letzter Secto 

writeC'STR 1 : ' ,mem($ffe2 ] . ' ÜTR 2 : '.mem[ 


r *) 

$ f f e3 ] ) ; 


par_tab[13]:=$2a; (* gap length 

repeat untll keypressed; 


*) 

for count:=0 to 90 do writefback Step); 


par tab[14]:=$80; (* data length 

for count:=0 to 90 do writel' ’); 


*) 

end ; 


if read code then 

end; 


inline ( $21 / par_adr / (* ld hl,par_a 

d r * ) 

procedure motor on; 


$cd / $5a / $fc / (* call xbios 

beg i n 


*) 

inline ( $cd / $5a / $fc / (* call $fc5a 


$ad / $00 ) (« read 

* ) 


*> 

$a4 / $00 ); (* defw $00a4 


e 1 se 

*) 


inline ( $21 / par adr / 

end ; 


$cd / $5a / $fc / 

procedure motor off; 


$b0 / $00 ); (* write 

beg i n 


* ) 

inline ( $cd / $5a / $fc / (* call $fc5a 


motor_off ; 



error; 

$a 7 / $00 ); (* de fw $00a7 

*) 


end ; 

end ; 


(* Hauptprogramm *) 

beg i n 

procedure reset fdc; 


for count:=0 to 511 do buffer[count]:=0; 

beg i n 


clrscr; 

par tab(5]:=$02; (* Befehls1aenge 


acreen; 

*) 


d1splay_mem ; 

par tab[6];=$07; (* Befehlscode 


mem_no : =0 ; secto r := 1 ; track := 0 ;1sb:=t rue ; 

*) 


gotoxy ( 12,5);write(sector:2);gotoxy(12,6);write(track:2 

par tab [ 7 ]: =1 ; (* Laufwerik B: 


); 

*> 


repeat 

inline ( $21 / par adr / (* ld hl,par a 


begi n 

dr *) 


dlsplay 1nve r s ( mem no); 

$cd / $ 5a / $fc / (* call $fc5a 


read(kbd,key) ; key:=upcase(key) ; 

* ) 


If not (key in ['0'..'9','A'.. , F']) then lsb:=true; 

$b0 / $00 ); (* defw $00ad 


display(mem no) ; 

*) 


case key of 

end ; 


up_key : if (mem no > 29) then mem no : =mem no - 3 

0; 

down_key : if (mem no < 482) then mem no:=mem no + 

procedure seek track(track : byte); 


30; 

beg 1 n 


1eft_key : if (mem no > 0) then mem no : =mem no - 1; 

par_tab[5]:=$03; (* Befe h1 s1aenge 

*) 

par tab[6]:=$0f; (* Befehlscode 


r1ght_key : If (mem_no < 511) then mem_no:=mem_no + 



*) 


0'..'9',‘A‘.,'F' : begin 

par tab[7]:=$01; (* Laufwerk B: 


if lsb then set lsblmem no) el 

*) 


se set msb(mem no) ; 

par tab[8 ]:=( track div 2) * 2; (* alle zwei Spu 


1sb := not 1sb 

ren * ) 


end ; 

inline ( $21 / par adr / (* ld hl,par a 


fl : begin 

dr *) 


sect code := true ; 

$cd / $5a / $ f c / (* call xbios 


set sec trac(sect code); 

* > 


end ; 

$ bO / $00 ); (* nr 


f3 : beg1n 

*) 


sect code:=false; 

end ; 


set_sec_trac ( sect_code ); 
end ; 

begi n 


f 5 : begin 

par tab[0) :=$01; (* Param. in Ban 


read code : =true ; 

k 1 *) 


read_w rite(sector,track,addr(buffer [0] ) 

par tab[l] : =1o ( ad ress ); (* Buffer-Adress 


,read_code); 

e * ) 


display mem; 

par tab ( 2 ] : =hi ( ad ress ); 


mem no:=0; 

par tab [ 3 ] :=$00; (* 512 Byte lang 


end ; 

*) 


f7 : begin 

par tab [ 4 ] :=$02; 


read code:=false; 

motor on; 


read write(sector,track,addr ( buffer ( 01 ) 

reset fdc;reset fdc; (* max 76 Steps 


,read_code ); 

* ) 


mem no : =0 ; 

seek track ( track ) ; 


end ; 

par tab[5] :=$09; (* Befeh1s1aenge 


end ; end ; 

*) 


unti 1 key = ex 1t ; 

1f read_code then par_tab[6]:=$e6 (* Lese-Befehl 


end . 

Llsting FDC 
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Laufwerke, vereint euch 

Zwei Laufwerke für CPC und PCW 


ausschließlich mit der MiniDos-TooI- 
box (Test: PC International 1/90) oder 
mit Kermit. 

Vorarbeiten 


Für den PCW oder CPC noch ein zweites 3-Zoli-Laufwerk zu kaufen, das 
dürfte sicherlich nicht empfehlenswert sein. Gibt es doch zum Beispiel im 
Umkreis keinen Händler, der die extra beschichteten und im Handbuch 
dinglichst empfohlenen CF2DD-Disketten für den PCW anbietet. Ebenfalls 
will man ja irgendwann einmal auch Daten mit anderen Computern austau- 
schen oder gar auf einen solchen umsteigen. 

Also muß ein Laufwerk her, das sich ohne größere Probleme an andere 
Computer anschließen läßt und/oder einen Datenaustausch mit diesen 
möglich macht. 


Inzwischen gibt es von verschiedenen 
Herstellern Laufwerke, welche diese 
Bedingungen erfüllen. Wir haben uns 
zwei Laufwerke von Frank Strauß 
Elektronik herausgesucht und wollen 
Ihnen über unsere Erfahrungen mit die¬ 
sen auf den PCW- und CPC-Compu- 
tern berichten. 

Im Lieferumfang der 3 1/2- oder 5 1/4- 
Zoll-Lau (werke ist bis auf die Ausnah¬ 
me des 3 1/2-Zoll-Laufwerkes beim 
PCW neben dem Laufwerk noch eine 


externe Stromversorgung enthalten. 
Dies bedeutet für CPC-Benutzer, daß 
Sie jetzt eine andere Steckdose für ihre 
Tischlampe benötigen, da der letzte 
lreie Platz Ihrer Dreifachsteckdose 
vom zweiten Laufwerk benötigt wird. 
Ebenfalls enthalten sind die Program¬ 
me MsCopy und/oder DiskPara, die ei¬ 
nen geregelten Datenaustausch mit an¬ 
deren Laufwerken gewährleisten sol¬ 
len (Tests in früheren Ausgaben der PC 
International). Wir arbeiteten jedoch 


Der Anschluß erfolgt auf dem CPC 
völlig unproblematisch durch An¬ 
stecken des Verbindungskabels an den 
Expansion-Port. Bei dem PCW muß 
man sich jedoch schon einmal bemühen 
und einen Kreuzschlitzschraubenzie¬ 
her zur Hand nehmen, was ja bei dem 
internen 3-Zoll-Laufwerk auch der Fall 
gewesen wäre. Ist das Gehäuse abge¬ 
schraubt, sucht man nun nach den 
Steckplätzen, an welche die oder, bei 
dem 5 1/4-Zoll-Laufwerk, das Kabel 
angeschlossen werden. 

Bei einigen Modellen des PCW müssen 
vor dem Zusammenstecken noch zwei 
Nippel an der Steckverbindung abge¬ 
schnitten werden. Dies ist jedoch mit 
einem scharfen Messer oder einer Ra¬ 
sierklinge nicht allzu schwer zu be¬ 
werkstelligen. Jetzt sucht man sich ei¬ 
nen geeigneten Platz, an dem das Kabel 
des Laufwerks aus dem Computer her- 
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ausschauen soll. Wir haben uns aus op¬ 
tischen Gründen für die Öffnung des 
PCW-Druckeranschlusses an der Hin¬ 
terseite des PCW entschieden. Ja, Ar¬ 
beit hat der PCW-User schon etwas 
mehr als der CPCler. 

Einstellungen 

Ist das Laufwerk angeschlossen, der 
Computer wieder zusammenge¬ 
schraubt, muß erst einmal beim Arbei¬ 
ten mit einem 5 1/4-Zoll-Laufwerk der 
Trackumschalter in die richtige Posi¬ 
tion gestellt werden. 

Er bewirkt die Umschaltung auf 40- 
oder 80-Track-Betrieb. Beim PCW 
muß also am Anfang auf 80 Tracks um¬ 
geschaltet werden. 

Nun können Sie munter beginnen, auf 
dem neu erstandenen Laufwerk die im 
Vergleich mit 3-Zoll-Disketten billigen 
Disketten zu formatieren. 

Was Sie wissen sollten 

Während der Arbeit mit den Laufwer¬ 
ken und ständigem Einsatz in unserer 
Redaktion sind einige Punkte aufgefal¬ 


len, die wir Ihnen beschreiben 
möchten. 

□ Beim PCW mit 5 1/4-Zoll-Laufwerk 
ist es auf die Dauer nervig, daß beim 
Booten immer eine Diskette eingelegt 
sein muß, damit der Computer das 
Laufwerk überhaupt erkennt. 

□ Eine gute Sache ist die Möglichkeit 
der Umschaltung von 40 auf 80 Tracks. 
Dies ermöglicht es Ihnen, das Lauf¬ 
werk an alle Gegebenheiten zu 'ge¬ 
wöhnen'. 

D Soll ein Datenaustausch zwischen 
PCW und PC (zum Beispiel PC 1640) 
vorgenommen werden, muß bei Trans¬ 
ferprogrammen (Mini-Dos-Toolbox) 
darauf geachtet werden, daß der Schal¬ 
ter auf 40 Tracks eingestellt ist. Ist dies 
nicht der Fall, kann der PC die Diskette 
nicht lesen, und die ganze Arbeit war 
vergebens. 

□ Die externe Stromversorgung der 
Laufwerke mag sicherlich von Vorteil 
sein. Man vergißt nur leider häufig, 
das Laufwerk auszuschalten, da keine 
Kontrollampe vorhanden ist, die die 
Betriebsbereitschaft anzeigt. 


i Ü Das Arbeiten mit LocoScript sowie 
allen anderen Programmen auf dem 
PCW wird durch die Laufwerke nicht 
gestört. Das Laufwerk wird — wie 
sollte es anders sein — wie das original 
3-Zoll-Pendant voll erkannt und kann 
ohne irgendwelche Einschränkungen 
genutzt werden. 

Id CPC-Besitzer haben die Möglich¬ 
keit, unter CP/M mit bis zu 830 kByte 
Diskettenspeicher zu arbeiten. Die nor¬ 
malerweise auf mehrere Disketten ver¬ 
teilten Dienstprogramme finden so 
leicht auf einer Diskette Platz. 

□ Ebenfalls positiv aufgefallen ist beim 
CPC der Seitenumschalter, welcher 
das ständige Umdrehen der Disketten 
im Laufwerk unnötig macht. 

(rs/jf) 


Interessenten wenden sich bitte an: 
Frank Strauß Elektronik 
Schmiedstraße 11 
6750 Kaiserslautern 


Public-Domain für CPC, Joyce und C-128 

Sagenhaft preiswerte Software für Sehneidcr-CPC und Joyce mit deutschem 
Handbuch - so machen diese Programme richtig Spaß! 


1- JRT-Pascal - vollständiges Pascal mit 64K-Strings, Overlays ... * 

2 - Z80-Assemblerpaket mit Assembler, DLsasscmblcr, Linker und Debugger 

3- Künstliche Intelligenz - Interpreter für XLISP und E-PROLOG * 

4- C-Compiler Small-C - mit Fließkommazahlen und großen Bibliotheken * 

5- FORTH-83 - mit Assembler, Decompiler, Scrccn-Editor ... 

6- CP/M-Utililies wie Dateikompressor, Diskmonitor. UNERA ... 

7- Alle Programme aus dem Großen CPC-Arbcitsbuch (nur CPC) 

8- Advcnturc Colossal Cavc (Programm englisch, Anleitung deutsch) * 

9- CPC-Disk Utilities - kopiert geschützte Software (nur CPC) 

10- BizBaslc - CPC-Basic-Erwcitcrung (relative Dateiverwaltung etc.) 

11- Basic-Compilcr E-BASIC - CBASlC-kompalibcl, viele Befehle 

12- Turbo Pascal-Programme - INLINE-Generator, GSX- & CPC-ROM-Grafik 

13- Alle Programme aus dem Buch Den Joyce programmieren 

14- Alle Programme aus dem Buch CPC-Dateiverwultung (nur CPC) 

15- WordStar-Utilities - Fußnoten, Stichwort, Mehrspaltcndruck * 

16- dBASE-LUeraturverwaltung - Bringen Sic Ihre Buchsammlung in Ordnung * 

17- C-Intcrpretcr SCI - Erlernen Sic spielend die Sprache C * 

18- MacroPack/Z8ö - Z80-Makroassembler, Spitzen-Dcbuggcr und Linker 

* auf dem CPC-464/664 nur mit Speichercrweitcrung (64K genügen). 


Der Preis? Sage und schreibe nur 30,- Mark pro Diskette inklusive Porto und 
Verpackung. Oder bestellen Sie drei beliebige Disketten für insgesamt nur 70,- 
Mark! 

Bitte geben Sic das gewünschte Diskettenformal (3 Zoll oder Vortcx-Diskctten) 
an. Lieferung per Nachnahme oder Vorauskasse, ins Ausland nur per Voraus¬ 
kasse. 

MARTIN KOTULLA 

Kronacher Straße 7, 8500 Nürnberg 90, Telefon 09 11/30 10 49 


A chtung: 



Heißer 

Draht 


Haben Sie Fragen, die nicht warten können? 
Dann rufen Sie uns an! 

Unser Leser-Telefonservice steht Ihnen zur Verfügung: 

jeden Mittwoch 
von 17.00 bis 20.00 Uhr. 


Sie erreichen Ihren Redakteur direkt unter seiner neuen 
Durchwahlnummer. Auf Ihren Anruf freuen sich: 


Claus Daschner (CPC) 

(05651) 809-750 

Joachim Freiburg (CPC/PC) 

(05651) 809-751 

Ralf Schößler (PCW) 

(05651) 809-752 
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Von acht 

auf vierundzwanzig 

Bitmaster für 24-Nadel-Drucker 

Haben Sie sich einen 24-Nadel-Drucker gekauft und sich später über die 
schlechte Druckqualität geärgert? Ab sofort kann damit Schluß sein, sofern 
Sie die kleine Ausgabe für ein leistungsstarkes Gerät nicht scheuen! 


Daß der Drucker nicht die erwünschte 
Leistung bringt, liegt nicht unbedingt 
an ihm. Wird er zum Beispiel an einem 
CPC oder PCW betrieben, werden von 
den meisten Programmen nicht alle 24 
Nadeln angesteuert. Der Drucker 
bringt also eine Leistung, die nicht sei¬ 
nem vollen Leistungsvermögen ent¬ 
spricht; Sie lassen bei Ihrem Jaguar ja 
auch nicht acht Zylinder arbeitslos in 
den Röhren ruhen. 

Fehlerkorrekturen? 

Der Bitmaster ist ein Modul, das direkt 
zwischen Computer und Drucker ange¬ 
schlossen wird. Hierzu wird lediglich 
das Druckerkabel aus dem Drucker 
herausgezogen und das Bitmastermo¬ 
dul mittels mitgeliefertem Kabel an die 
frei gewordenen Plätze gesteckt. 

Nun können die — möglicherweise 
schon vom Drucker her bekannten — 
Dipschalter individuell angepaßt 
werden. 

Diese Umschaltung ist mit Hilfe des 
beigefügten Arbeitszettels leicht zu er¬ 


ledigen und kann auch von nicht so ver¬ 
sierten, reinen Computeranwendern 
vorgenommen werden. Diese Um¬ 
schaltung der insgesamt acht Schalter 
macht sich beim Ausdruck sehr stark 
bemerkbar (siehe Abbildung 1 und 2). 
Das-Druckbild wird wesentlich verbes¬ 
sert, und speziell beim Grafikausdruck 
können störende Streifen fast ganz ver¬ 
schwinden, da das Modul geringe Gra- 
tikdichten in höhere umwandelt. Somit 
erscheint der Ausdruck nicht wie bis¬ 
her hell, sondern in einem satten 
Schwarz, wie es ja äuch beim Kauf des 
Gerätes beabsichtigt war. 

Auch die Konvertierungscharakleristik 
läßt sich über die Dipschalter kontrol¬ 
lieren. Zur Auswahl stehen Ihnen die 
Einstellungen auf filigran und rustikal, 
wobei in der filigranen Einstellung fei¬ 
nere Linien gezogen werden. Dies 
macht sich auch wieder beim Grafik¬ 
oder beim inversen Ausdruck von 
Schriften bemerkbar. 

Da Grafiken in verschiedenen Dichten 
ausgedruckt werden können, ist über 
die Dipschalter auch eine Einstellung 


der DPIs (Dots Per Inch) möglich. Hier 
stehen 180 und 360 zur Auswahl. 

Bonus 

Als besonderer Bonus steht dem An¬ 
wender auch noch ein Druckerspooler 
- also ein Puffer, in dem die Daten, 
die der Computer zum Drucker sendet, 
zwischengespeichert werden - zur 
Verfügung. In der Standard Version des 
Bitmaster hat der Spooler eine Kapazi¬ 
tät von 32 kByte, eine Erweiterung die¬ 
ses Puffers auf 128 oder mehr ist 
selbstverständlich möglich. 

Nach den ersten Ausdrucken wird 
schnell klar, daß es sich beim Bitmaster 
um eine runde Sache handelt. Ein gut 
durchdachtes Gesamtkonzept dieses 
Gerätes, die Vielzahl von Einstellungs¬ 
möglichkeiten und der integrierte 
Druckerspooler machen den Bitmaster 
zu einer lohnenden Anschaffung, die 
Besitzer des CPC oder auch des PCW 
(mit beiden Geräten harmoniert der 
Bitmaster gleichermaßen gut) zu schät¬ 
zen lernen. 


Infos: 

RKT, Advanced Technology & 
Computertechnik GmbH 
Postfach 71 08 44 
8000 München 71 
Preis: 395,- DM 


Letzte Meldung: Neue Version erhältlich, 
Umrüstsatz: 95. — DM 
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Abbildung 1: Ohne den Bitmaster erscheint die Grafik sehr schwach. und es 
sind deutlich Streifen im Bild zu erkennen 



Abbildung 2: Der Ausdruck mit dem Bit master hebt sich deutlich von dem 
anderen ab. Schwarze Flächen werden hier wirklich in Schwarz und nicht 
in Grau dargestellt 















I Kurs 


MS-DOS, die ersten 
Berührungen (5. Teil) 

Interne Angelegenheiten... 

Ohne ein Betriebssystem wird auch der teuerste 
Computer zu einem dummen und wertlosen Berg 
aus Blech und Silizium. Die Aufgaben und Mög¬ 
lichkeiten des Betriebssystems für den PC sollen in 
den nächsten beiden Folgen dieses Kurses vorge¬ 
stellt werden. 



Die Aufgaben des Betriebssystems ei¬ 
nes Rechners sind vielfältig: Zum ei¬ 
nen muß es erst mal dafür sorgen, daß 
im Rechner alles so läuft, wie es soll. 
Dies gilt für die Kommunikation der 
einzelnen Hardwarekomponenten des 
Rechners ebenso wie für die Kommu¬ 
nikation zwischen der Hardware und 
den gerade laufenden Programmen. 
Zusätzlich muß sich das Betriebssy¬ 
stem auch um den Anwender küm¬ 
mern. denn der hat ja auch noch einiges 
mitzureden —bildet der sich zumindest 
ein. Seine Wünsche müssen entgegen¬ 
genommen und ausgeführt werden, 
gleichzeitig sollte das Betriebssystem 
ihm auch noch einige arbeitserleich¬ 
ternde Dienstleistungen zur Verfügung 
stellen. Mit den letzten dieser Aufga¬ 
ben wollen wir uns in dieser Folge be¬ 
fassen. 

Harter Kern und weiche 
Schale 

Geliefert wird MS-DOS, das Standard¬ 
betriebssystem für den PC. auf ein oder 
zwei Disketten, ohne die absolut nichts 
läuft. Schauen wir sie uns einmal an. so 
sehen wir eine Menge von Dateien mit 
gar merkwürdigen Bezeichnungen. 
Aber um ehrlich zu sein: Die wichtig¬ 
sten Dateien sehen wir gar nicht, da sie 
wohlweislich versteckt sind. Es han¬ 
delt sich um die Dateien IO.SYS und 
MSDOS.SYS, die unterschiedliche 
Aufgaben erfüllen. IO.SYS liefert die 
Verbindung zur Hardware, MSDOS 
.SYS stellt Schnittstellen zwischen An¬ 
wendungsprogrammen und den übri¬ 
gen Komponenten zur Verfügung. So¬ 
mit entsteht eine hierarchische Struk¬ 
tur: Auf der untersten Ebene ist die 
Hardware zu finden, die über das 
BIOS, welches allgemeine Routinen 
zur Ansteuerung der Hardware liefert. 


und IO.SYS von MSDOS.SYS gesteu¬ 
ert wird. (Das BIOS — Basic Input / 
Output System —ist zwar schon Soft¬ 
ware, aber fest im Rechner eingebaut.) 
Eine Stufe über MSDOS.SYS ist das 
aktuelle Programm, die Anwendung, 
angesiedelt. 

Verfolgen wir einmal den Weg durch 
die DOS-Institutionen und nehmen an, 
ein Programm möchte Daten von der 
Diskette lesen. Diesen Wunsch meldet 
es übereine Funktion an MSDOS.SYS, 
welches nun berechnet, wo diese Daten 
auf der Diskette liegen und IO. SYS an¬ 
weist, den Bereich zu suchen. IO.SYS 
wiederum wendet sich an das BIOS, 
welches seinerseits mit dem Floppy- 
laufwerk Kontakt aufnimmt und sich 
von dort die Daten geben läßt, um sie 
nach oben weiterzureichen. Soweit die 
internen Angelegenheiten des Rech¬ 
ners. Aber wo ist nun der Anwender? 

Die Stimme seines Herrn... 

.. .vernimmt der Rechner über eine spe¬ 
zielle Softwareschnittstelle, den Kom¬ 
mandoprozessor. Dieser residiert wie 
ein normales Programm 'oberhalb’ 
von MSDOS.SYS und nimmt die Wün¬ 
sche des Anwenders über die Kom¬ 
mandozeile entgegen. Diese werden 
analysiert und ausgeführt, wobei es 
zwei Möglichkeiten gibt: Entweder 
fühlt sich der Kommandoprozessor di¬ 
rekt angesprochen, oder er versucht, 
die Aufgabe zu delegieren. Er kann 
nämlich gewisse einfache Aufgaben, 
die zu einem Betriebssystem gehören, 
selbst erledigen; man spricht von den 
sogenannten 'internen’ Befehlen des 
Betriebssystems. Dies sind jedoch nur 
sehr, sehr einfache Aufgaben — mehr 
kann man von einem 25 kByte großen 
Programm (COMMAND.COM) nicht 
erwarten. Wird der Befehl nicht er¬ 


kannt, so schaut COMMAND.COM 
nach, ob sich zufällig ein Programm in 
erreichbarer Nähe auf dem Datenträger 
findet, welches wie der Wunsch des 
Anwenders benannt ist. Ist dem so. 
wird dieses Programm geladen und 
ausgeführt, nach seiner Beendigung 
wird wieder COMMAND.COM ge¬ 
startet. Ist beim besten Willen jedoch 
nichts zu finden, wird der Anwender 
um eine neue Formulierung gebeten. 
Einige der so zugänglichen Programme 
erledigen ebenfalls Aufgaben, die in 
die Kompetenz des Betriebssystems als 
Anwenderschnittstelle fallen. Sie wur¬ 
den jedoch ausgelagert, so daß man 
von 'externen’ Befehlen spricht. Die 
nebenstehende Tabelle zeigt eine Über¬ 
sicht über die 'internen' Befehle von 
MS-DOS mit Schwerpunkt auf der 
Version 3.3. Nicht in die Übersicht 
aufgenommen wurden die Befehle zur 
Verwendung in Batch-Dateien. Diese 
sind zwar auch 'intern’, wurden jedoch 
schon an anderer Stelle besprochen. 
Eine Übersicht über die 'externen' Be¬ 
fehle wird in der nächsten Folge gelie¬ 
fert. 

(Michael Anton/jf) 


INTERNE MS-DOS-BEFEHLE 

BREAK 

Dieser Befehl steuerl die Funktion der Tasten- 
kombinalion CTRL-C, wie der Namensvetter in 
CONFIG.SYS. Dessen Einstellung kann hier¬ 
mit nochmals geändert werden, indem der Zu¬ 
stand als Parameter übergeben wird. Ohne Para¬ 
meter wird der aktuelle Zustand angezeigt. 

Aufruf: 

BREAK [ON I OFF] 

Anmerkung: Deutsche DOS- Versionen mehlen zwar 
'Break ist an/ausbestehen jedoch auf die englischen 
Parameter! 
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CHCP (3.3) 

Mit diesem Befehl kann die sogenannte Codesei¬ 
te, eine Tabelle mit verschiedenen länderspezifi¬ 
schen Zeichensätzen, gewechselt werden. Für den 
deutschsprachigen Raum ist dieser Befehl uninte¬ 
ressant und soll vorerst nicht weiter beschrieben 
werden. 

Aufruf: 

CHCP [codeseite] 

CD, CHDIR 

Mit diesem Befehl wird das aktuelle Verzeichnis 
angezeigt oder in ein anderes Verzeichnis ge¬ 
wechselt. wenn dieses als Parameter angegeben 
wird. CD und CHDIR sind synonym. 

Aufruf: 

CD [pfadj 

Anmerkungen: CD wirkt auch auf andere als das aktuelle 
Laufwerk. Wenn C: \ TEST das aktuelle Verzeichnis ist 
und 'CD I): \ SONSTWO ' eingegeben wird, bleibt C: 
das aktuelle Laufwerk, alle Operationen auf D: ohne 
Pfadangabe greifen mm auf D: \ SONSTWO zu. (Also 
TYPE D:DATEI.TXT wiire in Wirklichkeit TYPE 
ü: \ SONSTWO \ DA TEL TXT.) 

Mit CD \ ' kann direkt ins Hauptverzeichnis des aktuel¬ 
len Laufwerks gewechselt werden , mit CD ..' in ein über¬ 
geordnetes Verzeichnis. 

CLS 

Löscht den Bildschirm. 

Aufruf: 

CLS 

COPY 

Mit COPY können Dateien oder Dateigruppen be¬ 
liebig kopiert werden. Option /V gibt an, daß der 
Kopiervorgang überprüft werden soll, die Optio¬ 
nen /A und /B geben an, ob die Datei, hinter der 
sie stehen, als ASCII- oder Binärdatei behandelt 
werden soll (werden nur selten benötigt.) 

Aufruf: 

COPY quelle ziel [/V] [/A] [/B] 
Anmerkungen: 

Quelle und Ziel dürfen nicht identisch sein. Der Grad der 
Unterschiede ist jedoch frei. Eine Datei kann unter ande¬ 
rem Namen ins gleiche Verzeichnis kopiert werden, aber 
auch auf andere Laufwerke. Das aktuelle Laufwerk kann, 
muß aber nicht verwendet werden. 'COPY A: N TEX 
TE\BRIEFE\ BRIEF. TXT D: \ KOPIEN' ist zwar le¬ 
gal, oft kann man mit einem vorherigen Wechsel ins Ziel¬ 
verzeichnis jedoch Arbeit sparen... 

Wird für das Ziel ein Verzeichnis angegeben, muß dieses 
bereits existieren: Existiert das Zielverzeichnis bei 
COPY TEST. TXT C: \ TEXTE’ nicht, landet der Inhalt 
von TEST. TXT in der Datei TEXTE im Haupt verzeichnis 
von C:. 

Mit den Jokern * und ? können Dateigruppen kopiert 
werden, hier ist jedoch die Verwendung von XCOPY effi¬ 
zienter. 

Quelle und Ziel können sowohl Dateien als auch Geräte 
sein! ' COPY *.TXT PRN' schickt alle Dateien vom Typ 
TXT an den Drucker. 'COPY CON TEST IXT' sammelt 
alle Tastatureingaben in der Datei TEST. TXT. zum Been¬ 
den muß CTRL-Z oder F6 gedrückt werden. 

Eine weitere Funktion von COPY ist das Zusam¬ 
menfugen von Dateien oder Dateigruppen zu ei¬ 
ner einzigen Datei. 

Aufruf: 

COPY dateil + ... + dateix ziel [/V] [/A] 
C/B] 

Anmerkungen: 

Dateigruppen dürfen nur zusammengeftigt werden, wenn 
Quellen und Ziel unterschiedliche Dateitypen haben. 
COPY * TXT ALLE. DAT' oder 'COPY *. TXT -1 *.BRF 
TEXTE.DAT' sind legal, nicht jedoch COPY *7X7’ 
TEST. TXT... 

CITY 

Mit CTTY kann das aktuelle Gerät für die Ein- 
und Ausgabe, die Konsole, geändert werden. Das 
neue Gerät muß jedoch über die Eigenschaften der 
Standardkonsolc verfugen. Sinnvoll ist beispiels¬ 
weise. mit CTTY AUX auf ein Terminal an der 
seriellen Schnittstelle umzuschalten. Mit CTTY 
CON wird der Standard wiederhergestellt. 


Aufruf 
CTTY gerät 

DATE 

Mit DATE kann das Tagesdatum angezeigt oder ge¬ 
ändert werden. Bei Aufruf ohne Parameter wird das 
aktuelle Datum angezcigt und die Möglichkeit der 
Änderung angeboten. Ansonsten wird das als Para¬ 
meter übergebene Dalum in die Systemuhr über¬ 
nommen. Das Datum wird normalerweise in der 
Form 'Tag.Monat.Jahr’ angeben, je nach Landcs- 
einstellung sind auch andere Formen möglich. 
Aufruf: 

DATE [tt.mm. jj [JJ]] 

DEL, ERASE 

Beide Kommandos dienen zum Löschen von Datei¬ 
en oder Dateigruppen. Die Arbeit mit Pfaden und 
Jokern ist möglich (und gefährlich). 

Aufruf: 

DEL datei 

DIR 

Mit DIR werden Inhaltsverzeichnisse von Datenträ¬ 
gern angezcigt. Die Form der Anzeige hängt von 
den übergebenen Parametern ab. Ohne Parameter 
werden alle Dateien des aktuellen Laufwerks und 
Verzeichnisses angezeigt. Durch Angabe von Lauf¬ 
werk, Verzeichnis und Dateimaske können beliebi¬ 
ge Filterungen vorgenommen werden, beispiels¬ 
weise 'DIR A: Y TEXTE \ *.BRF’ zur Anzeige al¬ 
ler Dateien vom Typ BRF im Verzeichnis \ TEX¬ 
TE von Laufwerk A:. Mit der Option /P wird nach 
jeder Bildschirmseite eine Pause eingelegt, Option 
/W schaltet eine platzsparende Anzeige ohne Datum 
und Größe ein. 

Aufruf: 

DIR [Selektion] [/P] [/W] 

EXIT 

Mit EXIT kann eine zusätzlich gestartete Kopie des 
Kommandoprozessors wieder verlassen werden. 
Dies geschieht oft, um innerhalb eines Programms 
DOS-Befehle aufzurufen. Nach EXIT befindet man 
sich wieder im vorigen Programm. 

Aufruf: 

EXIT 

Anmerkung: 

Die unmittelbar beim Start des Rechners geladene Kopie 
von COMMAND. COM kann nicht verlassen werden. 

MD, MKDIR 

Diese beiden Befehle dienen zum Anlegen eines 
neuen Unterverzeichnisses. 

Aufruf: 

MD Verzeichnis 

Anmerkung: 

Die Anlage geschieht relativ zum aktuellen Verzeichnis, so¬ 
fern nicht anders spezifiziert. Im Verzeichnis \ TEST er¬ 
zeugt 'MD UNTER' also ein Verzeichnis \ TESTS UN¬ 
TER! MD arbeitet nicht laufwerksübergreifend. 

PATH 

Mit PATH wird ein Suchpfad festgelegt, auf dem 
DOS beim Aufruf eines Programms nach der ent¬ 
sprechenden Datei sucht, wenn diese nicht im ak¬ 
tuellen Verzeichnis zu linden ist. Die Suche be¬ 
schränkt sich auf ausführbare Dateien vom Typ 

COM, EXE und BAT. Die jeweiligen Verzeichnis¬ 
se sind per Semikolon abzutrennen, es können auch 
Laufwerke angegeben werden. 

Aufruf: 

PATH pfadl;pfad2;.. .pfadn 

Anmerkung: 

Die Festlegung des Pfades erfolgt am besten in AUTO¬ 
EXEC.BAT und sollte jene Verzeichnisse umfassen, in de¬ 
nen sich die externen DOS-Kommandos, sonstige Utilities 
und häufig benötigte Programme befinden. Die Größe des 
Pfades wird durch das 'Environment' begrenzt, dazu in ei¬ 
ner späteren Folge mehr. Mil PATH ;' wird der Pfad ge¬ 
löscht. 


PROMPT 

Dieser Befehl wurde in der ersten Folge bereits 
vorgestellt. 

Aufruf: 

PROMPT [Optionen] 

REN, RENAME 

Diese beiden Befehle dienen zum Umbenennen 
von Dateien. 

Aufruf: 

REN altname neuname 
Anmerkung: 

Vor dem ölten Namen darf ein beliebiger Pfad stehen. 
Die Verwendung von Jokern ist erlaubt: Mit REN 
A: \ TEST\ *. TXT *.BRF ' werden alle Dateien des an¬ 
gegebenen Pfades umbenannt. 

RD, RMDIR 

Beide Befehle dienen zürn Entfernen eines Unter¬ 
verzeichnisses. Dies geht jedoch nur, wenn sich in 
diesem Verzeichnis keine Dateien mehr befinden. 
Aufruf: 

RD Verzeichnis 
Anmerkung: 

Der Bezugspunkt 1 ist zu beachten, wie bei MD! 

SET 

Mit SET kann einer Variablen im 'Environment' 
(siehe später) ein Wert zugewiesen werden. Die¬ 
ser Wert kann in Batch-Files verwendet oder von 
entsprechenden Programmen ausgewertet wer¬ 
den. Wird kein Inhalt angegeben, erhält die Varia¬ 
ble einen Null-String als Inhalt. SET ohne Para¬ 
meter zeigt alle momentan definierten Variablen 
an. 

Aufruf: 

SET [variable=[Inhalt]] 

Auswertung in Batch-Dateien: 

^variable# (An diese Stelle wird der Inhalt ge¬ 
schrieben) 

TIME 

Dieser Befehl dient zur Einstellung der Uhrzeit, 
die Funktion ist ähnlich wie bei DATE. Das Zeit¬ 
format ist normalerw'cise 'Stunden: Minuten: Se¬ 
kunden. Hundertstel', die beiden letzten Werte 
können entfallen. 

Aufruf: 

TIME [hh:ram[:ss[.cc]]] 

TYPE 

Mit TYPE wird der Inhalt einer Datei auf dem 
Bildschirm angezeigt. Die Verwendung von Jo¬ 
kern ist nicht erlaubt. 

Aufruf: 

TYPE datei 

VER 

Dieser Befehl dient zur Anzeige der DOS-Version 
Aufruf: 

VER 

VERIFY 

Mit dem Schalter VERIFY wird festgelegt, ob 
Schreibzugriffe nachträglich überprüft werden 
sollen. Die Optionen entsprechen denen von 
BREAK. 

Aufruf: 

VERIFY [ON I OFF] 

VOL 

VOL zeigt das Label, also den Namen des aktuel¬ 
len oder als Parameter übergebenen Laufwerks 
an. 

Aufruf: 

VOL [laufwerk] 

Konventionen in der Übersicht: 

Eckige Klammern bedeuten optionale Parameter. Klein¬ 
schrift bezeichnet freie Benutzereihgaben. Großschrift 
feste Vorgaben. Wenn es sich bei den freien Optionen um 
Dateinamen handelt, ist ein gültiger DOS-Name ge¬ 
meint. der auch Laufwerks- und Pfadangaben beinhalten 
kann sofern nicht anders angegeben. I' trennt gültige 
Optionen. 
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Mit Käsestück und Peitsche 

Mausprogrammierung (1): Funktionen 

Die Maus (jenes Computer-Plastikpendant zur schnell herumhuschenden 
Feld-, Wald- und Wiesenmaus) hat inzwischen bei vielen PC-Besitzern ihren 
festen Platz auf dem Schreibtisch erobert. Besonders trifft dies auf die 
Besitzer der Amstrad-Rechner zu, da dieser bereits serienmäßig mit einer 
Maus ausgestattet ist. Für den normalen Benutzer reicht es aus zu wissen, 
daß er den Maustreiber laden muß, um mit der Maus arbeiten zu können. 


Anders sieht die Angelegenheit aus, 
wenn selbsterstellte Programme mit 
der Maus bedient werden sollen. Den 
Bibliotheken der meisten beliebten 
Sprachen fehlen Funktionen zur Unter¬ 
stützung der Maus. Dem soll hier und 
jetzt abgeholfen werden. In dieser Fol¬ 
ge werden die einzelnen Funktionen 
der Maus, die vom Treiber bereitge¬ 
stellt werden, erklärt. Im zweitem Teil 
folgt dann eine Sammlung von Routi¬ 
nen zur Unterstützung der eigenen Pro¬ 
grammierung. 

Grundsätzliches 

Mäuse lassen sich prinzipiell in zwei 
Gruppen aufteilen: die optischen und 
die mechanischen Mäuse. Bei der opti¬ 
schen Maus wird mit Hilfe von Foto¬ 
transistoren ein Raster auf einer spe¬ 
ziellen Unterlage abgetastet und in die 
Bewegungseinheiten und Richtung der 
Maus umgewandelt. 

Bei mechanischen Mäusen, der am 
weitesten verbreiteten Gruppe, wird 
die Bewegung der Maus über eine mit 


Gummi überzogene Stahlkugel und 
zwei an dieser anliegenden Rollen auf 
Lochscheiben übertragen. Licht¬ 
schranken und Fototransistoren ver¬ 
wandeln die Bewegung und Richtung 
in elektrische Impulse. 

Nachteil bei den optischen Mäusen, 
vom ihrem hohen Preis einmal abgese¬ 
hen, ist, daß eine spezielle Unterlage 
vorhanden sein muß. Die mechani¬ 
schen Mäuse hingegen funktionieren 
so ziemlich auf jedem Untergrund. 
Vorteil bei erstgenannten ist aber, daß 
kaum Schmutz hineingelangen kann; 
ein Problem, mit dem man bei mecha¬ 
nischen Mäusen dauernd zu kämpfen 
hat. 

Wie bei der Art der Maus, so gibt es 
auch beim Anschluß zwei Möglichkei¬ 
ten. Normalerweise wird die Mehrheit 
der Mäuse an einer seriellen Schnitt¬ 
stelle angeschlossen. Andere Mäuse 
haben eigene Anschlüsse und spezielle 
Ports im I/O-Bereich des Rechners, die 
vom Treiber abgefragt werden. Zur 
letzten Gruppe gehören die Amstrad- 
Mäuse. Natürlich gibt es auch im 


Übertragungsformat der diversen 
Mäuse Unterschiede, die hier jedoch 
nicht weiter interessieren, da nur der 
Zugriff über den Treiber demonstriert 
werden soll. 

Der Maustreiber 

Der Maustreiber ist das Programm, das 
die Daten, die die Maus an den Rech¬ 
ner sendet, umwandelt und verschiede¬ 
ne Funktionen zur Abfrage und Pro¬ 
grammierung der Maus bereitstellt. 
Programme kommunizieren folgender¬ 
maßen mit der Maus (respektive dem 
Treiber): In den Prozessorregistern 
AX, BX, CX, DX, SI, DI und ES (je 
nach Funktion) übergibt man diverse 
Parameter, danach wird ein Interrupt 
033H ausgelöst. Nach der Rückkehr 
von dem Interrupt hat man in den glei¬ 
chen Registern die Ergebnisse der 
Funktion zurückgeliefert bekommen. 
Alle Maustreiber unterstützen die 
Funktionen 0 bis 19 (die Funktionen 
17 und 18 existieren nicht). Neuere 
Treiber von Microsoft (letzte bekannte 
Versionsnummer 6.25BZ) unterstüt¬ 
zen noch eine Menge mehr Funktio¬ 
nen. Sie haben die Nummern 20 bis 36. 
Der Maustreiber, der von Amstrad 
mitgeliefert wird (beim 1512/1640 mit 
der Versionsnummer 5.00), unterstützt 
nur die alten Funktionen 0 bis 19. 

Der bei der 2xxx Serie mitgelieferte 
Treiber (Versionsnummer 6.0) sollte 
eigentlich auch die neuen (20 bis 36) 
unterstützen. Aus Gründen der Voll¬ 
ständigkeit werden sie hier auch erklärt 
(das ist auch für die Leute gedacht, die 
wie ich eine normale serielle Maus mit 
Microsoft-Treiber benutzen, um den 
Kompatibilitätsproblemen der Am- 
strad-Maus aus dem Weg zu gehen). 
Der zweite Grund für den Wechsel sind 
die Probleme mit Programmen, die un¬ 
bedingt einen Maustreiber >= 6.12 
benötigen (CodeView, Word 5.0). 

Die Funktionen 

Es folgt nun eine genaue Auflistung der 
einzelnen Funktionen mit Parametern, 
Rückgabewerten und ihrem Zweck. 

Funktion 0, Mouse Initialization 

Parameter: AX: 0 
Rückgabe: AX: Status 

BX: Anzahl der Tasten 

Diese Funktion initialisiert die Maus und setzt eine Anzahl 
von internen Variablen auf ihre Default-Werte. Der Maus- 
Cursor wird versteckt. Ist AX gleich 0. dann ist kein Maus¬ 
treiber geladen Idies funktioniert aber erst mit DOS - Ver¬ 
sionen > 3.0, da vorher nicht unbedingt der Interrupt 
033H auf ein IRET gelegt wird). Wenn AX gleich -I ist, ist 
der Maustreiber vorhanden, und die Maus wurde neu ini¬ 
tialisiert. 
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Funktion 1, Show Cursor 

Parameter: AX: 1 

Das Cursor-Flag des Treibers wird um I inkremenliert. Ist 
das Flag gleich 0. so wird der Maus-Cursor auf dem Bild¬ 
schirm gezeigt. 


Funktion 2, Hide Cursor 

Parameter : AX: 2 

Das Cursor-Flag des Treibers wird um I dckrementiert. Ist 
das Flag negativ, wird der Maus-Cursor auf dem Bild¬ 
schirm nicht gezeigt. 


Anmerkung zu den Funktionen 0, 1 und 2: 
Nach einem Maus-Reset (0) wird das Flag 
auf -1 gesetzt. Es muß also einmal Show 
Cursor aufgerufen werden, um den Cursor 
sichtbar zu machen. Das Cursor-Flag 
wird bei den Funktionen 1 und 2 intern 
in- oder dekrementiert. Da Funktion 2, 
egal wie der vorherige Inhalt aussah, 1 
vom Flag abzieht, sollten diese Funk¬ 
tionen immer paarweise benutzt werden. 


Funktion 3, Get Mouse Position und 
Button Status 

Parameter: AX: 3 
Rückgabe: BX: Status der Tasten 
CX: X-Cursor-Pos. 

DX: Y-Cursor-Pos. 

Der Tastenstatus ist folgendermaßen auf gebaut: Bit 0 ent¬ 
spricht der linken. Bit I der rechten Taste. Das jeweilige 
Bit ist gesetzt, wenn die Taste gedruckt ist. In CX/DX wird 
die Position des Maus-Cursors angegeben. Diese Angabe 
erfolgt in Pixeln, entsprechend der derzeitigen Auflösung 
des Bildschirms. Bei Textbildschirmen muß der Wert dann 
noch umgerechnet werden, da der Maustreiber auch hier 
Pixel-Werte angibt (0..639 und 0.199). die wenig mir den 
normalen Werten von 80x25 zu tun haben. 


Funktion 4, Set Mouse-Cursor 

Parameter: AX: 4 

CX: X-Cursor-Pos. 

DX: Y-Cursor-Pos. 

Der Maus-Cursor wird auf die angegebene Position ge¬ 
setzt. Da immer von einer Auflösung des Bildschirms von 
wenigstens 640x200 ausgegangen wird, müssen bei Text- 
modi die Werte tungerechnet werden (bei 80x25 Spalte und 
Zeile mal 8. bei 40x25 Spalte mal 16. Zeile mal 8). 


Funktion 5, Get Button Press Infor¬ 
mation 

Parameter: AX: 5 

BX: Nr. der Taste 
Rückgabe: AX: Status der Taste 
BX: Anzahl 
CX: X-Cursor-Pos. 

DX: Y-Cursor-Pos. 

Die Nummer der Taste ist 0==links. I = = rechts. Die 
Punktion liefert inAXden derzeitigen Status der Taste (sie¬ 
he auch lunktion 3), in BX die Anzahl der Betätigungen der 
Taste seit dem letzten Aufruf der Funktion und in CX/DX 
die Position des Cursors bei der letzten Betätigung der Ta¬ 
ste zurück. 


Funktion 6, Get Button Release In¬ 
formation 

Parameter: AX: 6 

BX: Nr. der Taste 


Rückgabe: AX: Status der Taste 
BX: Anzahl 
CX: X-Cursor-Pos. 

DX: Y-Cursor-Pos. 

Diese Funktion macht genau das. was die Funktion 5 zu tun 
gedenkt, mit dem Unterschied, daß hier Informationen 
Uber das Loslassen einer Taste geliefert werden. 


Funktion 7, Set Minimum and Maxi¬ 
mum X-Cursor Position 

Parameter: AX: 7 

CX: Minimum X-Cursor 
DX: Maximum X-Cursor 

Mit Hilfe dieser Funktion wird ein Bereich bestimmt, den 
der Maus-Cursor nicht verlassen kann. Befindet sich der 
Cursor bei Aufruf der Funktion außerhalb des Bereichs, 
wird er dort hineingesetzt. Ist Minimum größer als Maxi¬ 
mum. so tauscht der Maustreiber die Werte intern gegen¬ 
einander. 


Funktion 8, Set Minimum and Maxi¬ 
mum Y-Cursor-Position 

Parameter: AX: 8 

CX: Minimum Y-Cursor 
DX: Maximum Y-Cursor 

Diese Funktion ist identisch mit Funktion 8, nur ist sie für 
den Y-Cursor-Bereich zuständig. 


Funktion 9, Set Graphics Cursor 
Block 

Parameter: AX: 9 

BX: X-Cursor Hotspot 
CX: Y-Cursor Hotspot 
DX: Offsetadresse 
ES: Segmentadresse 

Hiermit wird das Aussehen, die Farbe und der Hotspor 
(Punkt des Maus-Cursors, der als Referenz dafür gilt, ob et¬ 
was berührt wird oder nicht) festgelegt. Der Hotspot ist ein 
Punkt relativ zur linken oberen Ecke des Cursorblocks. Die 
Koordinaten für ihn müssen im Bereich zwischen -16 bis 
+16 liegen (beide). Der Grafik-Cursor besteht aus 16x16 Pi¬ 
xel. In ES.DX wird dem Treiber die Adresse (Segment:Off- 
set) eines 32xl6-Bit-Blocks (32 unsigned int- Werte) überge¬ 
ben. Dieser Block besieht aus zwei I6xl6-Bit- Blöcken (der 
erste Block ist die Screen- der zweite die Cursor-Maske). 
Die Screen-Maske gibt an. welcher Pixel zum Aussehen des 
Cursors gelUirt und welcher Teil dem Hintergrund zuge¬ 
sprochen wird. Die Cursor-Maske gibt an, wie die Pixel un¬ 
ter dem Cursor zur Farbe des Cursors verändert werden. 
Bei der Darstellung des Cursors wird zuerst vom Maustrei¬ 
ber die Screen-Maske mit den 256 Bit Daten auf dem Bild¬ 
schirm vetANDet (blödes Wort), danach wird das Resultat 
mit der Cursor-Maske geXORt (auch nicht besser). 


Funktion 10, Set Text Cursor 

Parameter: AX: 10 

BX: Cursortype 
CX: Screen Mask / 

Scan Line Start 
DX: Cursor Mask / 

Scan Line Stop 

Diese Funktion legt fest, ob der Maustreiber einen eigenen 
Cursor (BX==0) otler einen Hanlware-Cursor (BX==1) 
benutzt. Beim Hanlware-Cursor handelt es sich um den 
normalen Cursor, der von der Bildschirmkarle zur Verfü¬ 
gung gestellt wird. 

Ist der Software-Cursor gewählt, wird der Wert in CX mit 
dem Werl an der Stelle des Bildschirms, an der der Cursor 
erscheinen soll. geANDet. Danach wird der Wert in DX mit 
dem daraus resultierenden Wert geXORt und zur Darstel¬ 
lung gebracht. 

Ist der Hanlware-Cursor gewählt, so gibt CX an, ab wel¬ 
cher Linie der Cursor starten und DX, wo er enden soll. 


Funktion 11, Read Mouse Motion 
Counters 
Parameter: AX: 11 
Rückgabe: CX: X-Count 
DX: Y-Count 

Es wird die Anzahl der Mickeys für jede Richtung seit dem 
letztem Aufruf dieser Funktion zurückgeliefert. Mickey? Ja, 
so nennt sich die zugrundeliegende Bewegungseinheil der 
Maus (wohl eine Reminiszenz an Mickey Mouse und Will 
Disney). Ein Mickey entspricht 1/200 Inch (je nach Maus 
gibt es hier aber Unterschiede). 


Funktion 12, Set User defined Sub¬ 
routine Mask 

Parameter: AX: 12 

CX: Event Mask 
DX: Offset 
ES: Segment 

Diese Funktion erlaubt es, eine Routine (sie muß als FAR- 
Routine codiert sein) anzugeben, die vom Maustreiber auf¬ 
gerufen wird, wenn der Zustand eintritt, der in CX angege¬ 
ben wird. 

Aufbau der Event-Mask: 

Bit 

0 Cursor Pos. geändert. 

1 Linke Taste gedrückt 

2 Linke Taste losgelassen 

3 Rechte Taste gedrückt 

4 Rechte Taste losgelassen 

5 - 15 nicht benutzt 

Tritt einer der Zustände ein. die in der Event-Mask angege¬ 
ben sind, ruft der Maustreiber die in ES:DX (Segment. Off■ 
sei) angegebene Adresse mir einem FAR CALI, auf (wo sich 
natürlich die User-Routine befinden sollte, ansonsten hängt 
der Rechner) und übergibt ihr folgende Parameter: 
Partimeter die die User-Funktion erhält: 

AX: Event Bit (s.o.) 

BX: Status der Tasten 

CX: X-Cursor-Pos. 

DX: Y-Cursor-Pos. 

Sl: X-Mickeys 

Dl: Y-Mickevs 

Dadurch lassen sich Programme schreiben, die nicht dau¬ 
ernd die Maus abfragen müssen, sondern sich auf ihre Auf¬ 
gaben konzentrieren können. Worauf bei dieser User-Routi¬ 
ne zu achten ist, wärt/ im nächsten feil beschrieben. Zu be¬ 
rücksichtigen ist. daß bei einer Initialisierung der Maus mit 
Funktion 0 dieses Feature des Treibers ausgeschaltet wird, 
so daß es erst nach einem neuen Aufruf der Funktion 12 wie¬ 
der zur Verfügung steht. 


Funktion 13, Light Pen Emulation on 

Parameter: AX: 13 

Hiermit läßt sich die Emulation eines Lichtgriffels durch die 
Maus einschalten (die Frage ist natürlich. wozu das gut sein 
soll). 


Funktion 14, Light Pen Emulation off 

Parameter: AX: 14 

Schalter die Lichtgriffel-Emulation wieder ab. 


Funktion 15, Set Mickey / Pixel Ratio 

Parameter: AX: 15 

CX: X-Ratio 
DX: Y-Ratio 

Gibt an. wie viele Mickeys einem Pixel entsprechen. Die 
Werte müssen im Bereich von 1-32767 sein. Dadurch läßt 
sich die Empfindlichkeit der Maus einstellen. 


Funktion 16, Conditional Off 

Parameter: AX: 16 

CX: Obere X-Koor. 

DX: Obere Y-Koor. 

SI: Untere X-Koor. 

DI: Untere Y-Koor. 

Es wird ein Bereich auf dem Bildschirm festgelegt, in dem 
der Maus-Cursor ausgeschaltet wird, wenn er in diesen ein¬ 
tritt. P.s dient dazu, einen Bereich des Bildschirms, der ver- 
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ändcr: wird, vor dem Maus-Cursor zu schützen, da der 
Treiber den Bildschinninluilt bei Bewegungen selbständig 
auf die alten Werte setzt- Hm passiert, wenn zwei Program¬ 
me verschiedene Informationen auf dem Bildschirm darstel¬ 
len wollen, kann man sich gut vorstellen. 


Funktion 19, Set Double Speed 
Threshold 

Parameter: AX: 19 

DX: Mickeys/Second 

Hiermil läßt sich ein Wert festlegen, ab dem sich der Maus- 
Cursor schneller bewegt. Werden mehr als die angegebene 
Anzahl der Mickeyspro Sekunde empfangen, so bewegt sich 
der Cursor schneller über den Bildschirm. 


Alle nun folgenden Funktionen werden 
erst von neueren Maustreiber (Ver¬ 
sionsnummer von Microsoft ab 6.12) 
zur Verfügung gestellt. Die Amstrad- 
Treiber der Version 5.00 haben diese 
Funktionen nicht, erst ab der Version 
6.00 werden sie unterstützt. 


Funktion 20, Svvab Subroutines 

Parameter: AX: 20 

CX: Event Mask 
DX: Offset 
ES: Segment 

Rückgabe: CX: alte Event Mask 
DX: alter Offset 
ES: altes Segment 

Diese Funktion ist identisch mit der Funktion 12, allerdings 
mit einem sehr wichtigen Unterschied: Während die Funk¬ 
tion 12 eine etwaige alte User-Routine 'löschtgibt diese 
die alte Event-Maske und die Adresse der User-Routine zu¬ 
rück. 


Funktion 21, Get Driver State Storage 
Requirements 

Parameter: AX: 21 

Rückgabe: BX: Anzahl der Bytes 

Bei neueren Maustreibem läßt sich der Zustand der Maus 
komplett sichern (Status, User-Routinen etc.). Diese Funk¬ 
tion gibt in BX die Anzahl der Bytes, die daflir benötigt wer¬ 
den an. 


Funktion 22, Save Mouse Driver 
State 

Parameter: AX: 22 

DX: Offset Puffer 
DS: Segment Puffer 

Hiermit läßt sich der Zustand des Maustreibers kongtleu si¬ 
chern. Der Puffer, auf den DS.DX zeigt, muß groß genug 
sein (Größe vorher mit Funktion 21 feststellen). 


Funktion 23, Restore Mouse Driver 
State 

Parameter: AX: 23 

DX: Offset Puffer 
DS: Segment Puffer 

Stellt den mit Hilfe der Funktion 22 gesichenen Zustand des 
Maustreibers wieder her. 


Funktion 24, Set Alternate Subrou¬ 
tine Call Mask and Adress 

Parameter: AX: 24 

CX: Event-Mask 
DX: Offset 
ES: Segment 


Rückgabe bei Fehler: 

AX: -1 

Diese Funktion ist eine erweiterte Fassung der Funktion 12. 
Manche Programme (WORD etc.) verhalten sich unter 
Meutsbedienung bei gedrückten Shift-Tusten anders als 
sonst. Das kann durch diese Funktion erreicht werden. Die 
erweiterte Event-Mask dieser Funktion sieht so aus: 

Aufbau der erweiterten Event-Mask 
Bit 

0 Cursor Pos. geändert. 

1 Linke löste gedrückt 

2 Linke Taste losgelassen 

3 Rechte Taste gedrückt 

4 Rechte Taste losgelassen 

5 Shifi war gedrückt 

6 Control war gedrückt 

7 Alt war gedrückt 

8 -15 nicht benutzt 

Tritt einer der Zustände ein, die in der erweiterten Event- 
Mask angegeben sind, ruft der Maustreiber die in ES:DX 
(Segment:Öffset) angegebene Adresse mit einem FAR CALL 
auf und übergibt ihr folgende Parameter: 

Parameter, die die erweiterte User-Funktion erhält: 

AX: Event Bit (s.o.) 

BX: Status der Tasten 
CX: X-Cursor-Pos. 

DX: Y-Cursor-Pos. 

S1: X-Mickeys 
DI: Y-Mickeys 

Zu bemerken ist noch, daß sich über diese Funktion drei un¬ 
terschiedliche User-Routinen installieren lassen. Wenn eine 
vierte User-Routine installiert werden soll, wird in AX eine 
-1 zurückgeliefert. 


Funktion 25, Get Alternate Subrouti¬ 
ne Call Mask and Adress 

Parameter: AX: 25 

CX: Event-Mask 
Rückgabe: CX: Event-Mask 
DX: Offset 
BX: Segment 

Bei einem Fehler enthält AX —1. 

Diese Funktion dient dazu, die Adresse einer erweiterten 
User-Routine festzustellen. Hierzu muß man die Aufrufmas¬ 
ke der gesuchten Funktion kennen. Bei einer falschen Mas¬ 
ke liefert der Treiber eine -1 in AX als Fehlermeldung. 


Funktion 26, Set Mouse Sensitivity 

Parameter: AX: 26 

BX: Hör. Empfind. 

CX: Ver. Empfind. 

DX: Schwelle für doppelte 
Genauigkeit 

Hiermit lassen sich die Werte der Funktionen 15 und 19 ska¬ 
lieren. Die Werte müssen im Bereich von 1 bis 100 liegen 
(steht wohl für Prozent). Es lassen sich dadurch recht feine 
Absttifungen erreichen. 


Funktion 27, Get Mouse Sensitivity 

Parameter: AX: 27 
Rückgabe: BX: Hör. Empfind. 

CX: Ver. Empfind. 

DX: Schwelle für doppelte 
Genauigkeit 

Die derzeit eingestellten Werte flir die Mausempfindlichkeit 
werden zurückgegeben. 


Funktion 28, Set Mouse Interrupt 
Rate 

Parameter: AX: 28 

BX: Anzahl der Int. 

Diese Funktion hat nur bei einer Microsoft InPortMouse ei¬ 
nen Sinn. 


Funktion 29, Set Crt Page Number 

Parameter: AX: 29 

BX: Bildschirmseite 


Die Bildschirmseite für die Anzeige des Maus-Cursors läßt 
sich durch diese Funktion einstellen. 


Funktion 30, Get Crt Page Number 

Parameter: AX: 30 
Rückgabe: BX: Bildschirmseite 

Die Bildschirmseite fiir die Anzeige des Maus-Cursors wird 
durch diese Funktion zurückgeliefert, 


Funktion 31, Disable Mouse Driver 

Parameter: AX: 31 
Rückgabe: BX: Offset 
ES: Segment 

Bei einem Fehler ist AX gleich -1. 

Der Maust reibe r wird abgeschaltet, ln ES:BX (Seg- 
ment.Offset) wird der Wert des Interrupt-Vektors 033H vor 
der Installation des Treibers zurückgeliefert. 


Funktion 32, Enable Mouse Driver 

Parameter: AX: 32 

Der Maustreiber wird wieder eingeschaltet (nach vorheri¬ 
gem Aufruf der Funktion 31). 


Funktion 33, Software Reset 

Parameter: AX: 33 
Rückgabe: AX: -1, wenn Maustrei¬ 
ber inst. 

BX: 2 

Ein Reset des Treibers und der Maies werden durchgeführt. 


Funktion 34, Set Language for Mes¬ 
sages 

Parameter: AX: 34 

BX: Nr. der Sprache 

Gibt an, in welcher Sprache der Maustreiber Meldungen 
von sich geben soll. Wer sich schon einmal einen Microsoft- 
Maustreiber näher angeschaut hat, wird festgestellt haben, 
daß seine Meldungen in ziemlich vielen Sprachen vorhan¬ 
den sind. 

Nummern der Sprachen: 

0 Englisch 

1 Französisch 

2 Holländisch 

3 Deutsch 

4 Schwedisch 

5 Finnisch 

6 Spanisch 

7 Portugiesisch 

8 Italienisch 


Funktion 35, Get Language Number 

Parameter: AX: 35 
Rückgabe: BX: Nr. der Sprache 

Nach Aufruf der Funktion 35 erhält man in BX die Nummer 
der derzeit eingestellten Spruche fiir Meldungen. Für eine 
Liste siehe Funktion 34. 


Funktion 36, Get Driver Version, 
Mouse Type, IRQ Number 

Parameter: AX: 36 
Rückgabe: BX: Version 

CL: IRQ Nummer 
CH: Maustyp 


Die Versionsnummer in BX teilt sich auf in: 

Bll == Hauptnummer 
B1, == Nebennummer 

Die IRQ-Nummer gibt an, welcher Hardware-Interrupt (bei 
einer seriellen Maus) durch den Treiber belegt ist. 

Der Maustyp gibt an, welche Maus angeschlossen ist: 


Bus-Maus 
Serielle Maus 
lnPort Maus 
PS/2 Maus 

Hewlett-Packard-Maus 


(Robert Haas/jf) 
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SPIELE 



unglaublichen Preisen 

3D-Light Cycle: 

Das allseits bekannte und beliebte 
TRON-Spiel für zwei Personen jetzt 
wie im Film!! Erleben Sie dieses 
spannende und abwechslungs¬ 
reiche Actionspiel jetzt in einer 
neuen Dimension. Verblüffende und 
noch nie dagewesene 3D-Effekte 
sowie professioneller Sound lassen 
Sie in eine völlig andere CPC-Welt 
versinken. Diesen Super-Hit muß 
man ’live’ gesehen haben. 

3D-Labyrinth: 

Das beste Labyrinthspiel jetzt in Super-3D-Qualität. Auf der Suche nach 
Hinweisen zum Passwort, das den mächtigen Zentralcomputer lahmlegen kann, 
lauern tausend Gefahren auf Sie. Die räumliche, perfekte 3D-Darstellung| 
superschneller Grafikaufbau und viele Überraschungen garantieren eine 
völlig neue Art von Spielvergnügen. 



STARTEST 

Action-Adventure für alle CPCs 
Kassette jetzt nur 10,- DM* 
Diskette jetzt nur 19,- DM* 



Voraussetzungen: 

CPC 464/664/6128 mit Farbmonitor. Das 
Spiel 3D-Light Cycle kann ohne 3D- 
Brille auch auf Grünmonitor gespielt 
werden, Darstellung dann in 2D. 3-Zoll-Diskette nur 


V’-.. ' ■ * * . * " ; < - < 

INKLUSIVE 3D-Brille 

39,- DM* 


GAMf 


Fantastic Four 

Vier Superprogramme zum kleinen Preis: 

COCKAIGNE - Weltraum-Actionsspiel 
TERRANAUT I - Science-Fiction- 
Adventure 

FRUITS - Geschicklichkeitsspiel 

TERRANAUT II - Textadventure 

Diskette jetzt nur 29,- DM* 


CYRUS II Schach 

Das bewährte Schachprogramm 
mit 3D-Display 

Kassette jetzt nur 10,- DM* 


SPECIAL OFFERSIII 

9 Spiele für alle CPCs 
3 Disketten jetzt nur 39,- DM* 


Vier Super-Programme zum 
kleinen Preis. 

Die neue CPC-Spielebox enthält vier ausgesuchte 
TOP-Programme der Spitzenklasse. 

Da ist für jeden das Richtige dabei! 

1. Alphajet 

Lieben Sie Abenteuer und Gefahren im Weltraum? Dann 
steigen Sie in den neuentwickelten Alphajet und erforschen 
die interstellaren Sonnensysteme. Erleben Sie mit Alphajet 
ein hochklassiges Actionspiel mit außergewöhnlicher Grafik 
und vielen tollen Effekten. 

2. Telefomania 

Man schreibt das Jahr 1992. Das sogenannte Datenzeitalter 
hat begonnen. Aber einige Gebiete wurden bei der Ver¬ 
netzung schlichtweg vergessen. Verhandeln Sie also direkt 
mit den Hausbesitzern über Tarife und Anschlußmöglich¬ 
keiten. Mit Telefomania erwartet Sie eine völlig neue Spiel¬ 
idee, die auch Sie begeistern wird. 

3. Kampf den Insekten 

Übernehmen Sie die Rolle eines berühmten Gärtners. 
Erschwert wird dies durch verschiedenartige Insekten, die 
immer wieder an Ihren herrlichen Pflanzen nagen und diese 
zerstören. Ein erlebnisreiches Geschicklichkeitsspiel für die 
ganze Familie mit vielen Überraschungen erwartet Sie. 


BOX 3 



4.Funbouncer 

Ihr bester Freund wurde vom bösen Zauberer entführt. Als 
Sie das Schloß des Zauberers erreichen, werden Sie und 
Ihr Freund in einen feuerroten Ball verwandelt. In dieser 
Gestalt müssen Sie nun den geheimen Ausgang des 
Gewölbes finden, um den Fluch zu verlieren. Funbouncer 
ist ein schnelles und farbenfrohes Actionspiel mit vielen 
Levels und eigenem Bild-Construction-Set. 


Für alle CPCs als Diskette 29,— DM* 


Unabhängig von der Anzahl der bestellten Produkte berechnen wir für das 
Inland DM 4,- bzw. für das Ausland DM 6,- Porto und Verpackung. 

Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 • 3440 Eschwege 




































Dunkel war’s 

Abschalten von Monitors 
Elektronenstrahl 


den Zähler auf seinen Anfangswert und 
ignoriert den Tastendruck. 

Die neue Video-Routine dient zur 
Kommunikation mit den residenten 
Programmen. Sie reagiert nur, wenn 
im AX-Register-1 steht. Im BX-Regi- 
ster befindet sich eine Funktionsnum- 


Die Situation: Sie schreiben gerade einen Text, programmieren vor sich hin 
oder jagen dem letzten Highscore hinterher. Plötzlich klingelt das Telefon. 
Da es sich nicht lohnt, wegen so einer kleinen Unterbrechung den Rechner 
auszuschalten, läßt man ihn laufen und geht zum Telefon. Doch hört, hört, 
es war die (der) Freund(in), und das ganze dauert nun ein Weilchen länger. 
Während dieser ganzen Zeit läuft der Rechner weiter, und es kann passie¬ 
ren, daß das Bild seine unauslöschlichen Spuren auf dem Schirm hinterläßt, 
sprich, daß der Elektronenstrahl seine Informationen im Phosphor des Bild¬ 
schirms einbrennt. 


Da ein Bildschirm auch heutzutage 
noch nicht zu den Wegwerlprodukten 
gehört, sollte man etwas dagegen tun. 
Dauerndes Ein- und Ausschalten des 
Rechners erhöht dessen Lebenserwar¬ 
tung auch nicht, und jedesmal die Hel¬ 
ligkeit und den Kontrast neu auszuba¬ 
lancieren. kann sehr zeitraubend sein. 


Modussteuerregister 

Glücklicherweise gibt es bei IBM- 
kompatiblen Rechnern eine Möglich¬ 
keit, den Bildschirm softwaremäßig 
auszuschalten. Auf der Port-Adresse 
03D8H. CGA. (Hercules 03B8H) be¬ 
findet sich das sogenannte Modussteu¬ 
erregister. Es hat folgenden Aulbau: 


Bit 

Aufgabe 

7,6 

Nicht benutzt 

5 

Blinkende Charakter oder 


intensiver Hintergrund 

4 

Grafik-Mode 2 

3 

Ein-/Ausschalten des Dis¬ 


play 

2 

Palette 2 

1 

Grafikmodus (Ausschalten 


des Zeichenmodus) 

0 

80-Zeichen-Modus 

Aufltuu des Modiissteuerregisiers 


Uns interessiert hier nur Bit 3, mit des¬ 
sen Hilfe man den Bildschirm aus- oder 
anschalten kann. 

CrtOff 


Das hier vorgestellte Programm CrtOff 
hängt sich in drei Interrupts (Video-In¬ 
terrupt (010H), Timer-Interrupt (08H), 
Keyboard-Interrupt (09H)) und schal- 


tet den Bildschirm ab, wenn länger als 
drei Minuten keine Taste (auch Maus¬ 
tasten, da diese über die Tastatur lau¬ 
fen, jedoch keine Mausbewegungen) 
betätigt wurde. Wird danach eine Taste 
gedrückt, so schaltet sich der Bild¬ 
schirm wieder ein. Da man ungern ir¬ 


gendwelche Tasten betätigt 


sehen, was sich aul dem Bildschirm 
tut. wird dieser erste Tastendruck igno¬ 
riert. 

Wenn also das Telefon direkt vor der 
Sicherheitsabfrage zum Formatieren 
der Festplatte zu klingeln beginnt, Sie 
nach dem Gespräch zurückkehren und 
aus unerfindlichen Gründen die j-Taste 
drücken, wird nicht etwa Ihre Festplat¬ 
te kommentarlos ruiniert, sondern erst 
einmal der Bildschirm restauriert, be¬ 
vor Sie durch erhaltenen Schaden für 
keinen Spott mehr zu sorgen brauchen. 
Technisch gesehen geht CrtOff folgen¬ 
dermaßen vor: In der neuen Timer- 
Routine wird ein Zähler bei jedem Auf¬ 
ruf erniedrigt (18,2mal in der Sekun¬ 
de). Ist der Zähler gleich null, wird der 
Bildschirm über das Modussteuerregi¬ 
ster abgeschaltet. In der neuen Key¬ 
board-Routine wird dieser Zähler bei 
jedem Tastendruck wieder auf seinen 
Anfangswert gesetzt (Im Source-Code 
ist die Zeit auf drei Minuten berechnet, 
wer eine kürzere oder längere Zeit ha¬ 
ben will, muß den Equate ändern. Die 
Anzahl der Ticks berechnen sich so: 

Minuten * Sekunden * 18, 

Wer die Anzahl der Ticks ganz genau 
bestimmen will, muß noch für alle zehn 
Sekunden zwei Ticks dazuzählen). 
Wird in der Keyboard-Routine festge¬ 
stellt, daß der Bildschirm ausgeschaltet 
ist, so schaltet die Routine diesen wie¬ 
der an. Außerdem setzt das Programm 



Mit Hilfe der Funktion läßt sich ( 

rei 


m 




stalliert ist. Ist nach dem Aufruf dieser 
Funktion AX gleich 0. so ist das Pro¬ 
gramm bereits aktiv. Durch den Zeiger 
in ES:BX läßt sich auch der Status des 
Programms feststellen (läuft oder ab¬ 
geschaltet etc.). Zum Aufbau des Da¬ 
tenfeldes. siehe Listing. 

Installation 


Das einzige, worauf bei der Installation 
zu achten ist: Das Programm muß (!!!) 
nach dem Tastaturtreiber geladen wer¬ 
den. Da beide den Interrupt 09H benut¬ 
zen, der Tastaturtreiber jedoch nach 
seiner Installation keine Aufrufe des 
Interrupts mehr weiterreicht, wird der 
Dunkelschalter bei einer anderen Rei¬ 
henfolge abgehängt und weiß nicht 
mehr, wann er den Bildschirm wieder 
anschalten muß (das Abschalten funk¬ 
tioniert hingegen prima). 

Wer sich das Listing schon angeschaut 
hat, wird auf einige Eigenarten bei der 
Installation gestoßen sein. Da meiner 
Meinung nach residente Utilities so 
klein und schnell wie irgend möglich 
sein sollten, wird der verfügbare Platz 
so gut es geht ausgenutzt. Da bei den 
wenigen Befehlen des residenten Teils 
nicht viel optimiert werden kann (außer 
daß die Daten auf gerade Adressen ge¬ 
legt werden, dann kann der Prozessor 
schneller daraufzugreifen), wurde ein 
Trick angewendet, um Platz zu sparen. 
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DOS legt vor jedem Programm einen 
sogenannten 'Programm Segment Pre- 
fix' an (kurz. PSP). Der PSP liegt direkt 
vor dem Programmcode. Das heißt: 
Bei COM-Programmen fängt er bei 
CS.O an. Bei EXE-Programmen, die 
einen anderen Aufbau haben, zeigen 
bei Programmstart ES und DS auf die 
Segmentadresse des PSP (bei COM- 
Programmen natürlich auch, da alle 
drei, CS, DS, ES, den gleichen Inhalt 
haben). 

Dieser Block enthält gewisse Daten, 
die für DOS wichtig sind (gespeicherte 
Interrupt-Vektoren, DOS-Datenbe- 
reich, DTA-Bereich und so weiter). Ab 


0 Das Programm darf keine Disk-I/O 
enthalten (oder DTA ändern). 

£> Es dürfen keine direkten Sprünge im 
residenten Teil enthalten sein (eine 
Angabe wie jmp LABEL wird vom 
Assembler in eine Anweisung wie 
'Springe 102 Bytes nach vorne' um¬ 
gewandelt; hier ändert sich nichts 
durch die Relozierung). 

<> Wenn Adressen gebraucht werden 
(Einsetzen in Interrupts), müssen 
diese berechnet werden (eine Me¬ 
thode siehe Listing), da der Assem¬ 
bler nicht weiß, was wir Vorhaben, 
und die alten Adressen einsetzt. 


ben, das den Dunkelschalter mit Hilfe 
des erweiterten Video-Interrupts 
(Funktion 0) abschaltet. Wenn das 'un¬ 
verträgliche' Programm beendet ist, 
kann man den Dunkelschalter über die 
Funktion 1 wieder einschalten. 

Die Übersetzung 

Das Programm kann mit dem Makro- 
Assembler ab Version 4.0 oder mit 
Tasm ab 1.0 kompiliert werden: 

MASM/TASM CrtOff; 

Das OBJ-File wird dann gelinkt: 

Link CrtOff; 


der Adresse 05CH beginnt im PSP ein 
Bereich, der nur für Programme inter¬ 
essant ist, die Disk-I/O tätigen (FCB1, 
FCB2, Default-DTA (DiskTransfer- 
Area)). Da dieses kleine Programm 
keine solchen Aktivitäten enthält, kann 
man nun den residenten Teil in den PSP 
(ab 05CH) relozieren (verschieben) 
und so ein wenig Platz sparen (das gan¬ 
ze nimmt im Speicher nur 304 Byte 


Wenn Sie diesen Trick für eigene resi¬ 
dente Programme auch anwenden wol¬ 
len. beachten Sie folgende Hinweise: 

<C> Wenn das Programm Argumente aus 
der Kommandozeile erhält, müssen 
Sie diese vorher auswerten, da diese 
auch in dem Bereich des PSP abge¬ 
legt werden, in dem das Programm 
reloziert wird. 


Unverträglichkeiten... 

...gibt's nicht. Na gut, das Programm 
schaltet den Bildschirm aus, es kann 
aber passieren, daß es ihn nicht wieder 
anschaltet. Der Grund liegt darin, daß 
manche Programme den Tastatur-In¬ 
terrupt auf sich verbiegen und das Pro¬ 
gramm dadurch nicht weiß, wann eine 


Taste betätigt wird. Ein anderes Pro- 


Die Warnung 'Kein Stack-Segment’ 
wird ignoriert. Danach muß noch die 
entstandene EXE-Datei mit Hilfe von 
EXE2BIN (auf Ihrer Systemdiskette 
enthalten) in eine COM-Datei verwan¬ 
delt werden. Die EXE-Datei kann nicht 
gestartet werden, da das Programm als 
COM-Programm konzipiert ist. Der 
Rechner wird mit großer Wahrschein¬ 
lichkeit abstitrzen, wenn Sic es dennoch 


blem besteht bei dem Flugsimulator 
(III oder IV). Dieser programmiert den 
Timer auf einen hohen Wert, so daß 
der Bildschirm schon nach etwa 20 Se¬ 
kunden abgeschaltet wird. Er wird 
zwar bei einem Tastendruck sofort 
wieder eingeschaltet, fliegt man aber 
mit der Maus, wird die Sache etwas 
irritierend. 

ln diesem Fall ist es am einfachsten, 
sich ein kleines Programm zu schrei¬ 


versuchen. 

EXE2B1N CrtOff.Exe CrtOff.Com 

Ist dies erledigt, können Sie alle nun 
überflüssigen Dateien (EXE. OBJ, 
MAP) löschen. CrtOff nach dem Ta¬ 
staturtreiber in Ihre AUTO¬ 
EXEC.BAT eintragen und sich dar¬ 
über freuen, daß ab jetzt Ihr Bildschirm 
besser vor dem Einbrennen von Zei¬ 
chen in sein Phosphor geschützt ist. 

(Robert Haas/jf) 


page 65, 132 

Title Crtoff / Bildschirmausschalter 

CRT_Port EQU 03D8H ; CGA, für Here. 3B8H 

Enable EQU 08H ; Bit für B11dsch1rmaus 

; Wann der Bildschirm ausgeschaltet werden 
; soll (Min * Sek * 18 > 

Wait_Count EQU ( 60 * 3 * 18 ) 

; Diverse Ports 
KBD_Data EQU 060H 
KBD_Ctr1 EQU 061H 

C1ear_Port EQU 080H 
EOI EQU 020H 

Int_Cont Equ 020H 


BIOS_DAT A SEGMENT AT 040H 
ORG 06 5 H 

; Hier wird das Modus-Byte des Bildschirm- 
; Controllers vom Bios zwischengelagert 
Crt_Mode_Set LABEL BYTE 
BIOS_DAT A ENOS 

CSeg SEGMENT 

ASSUME CS:CSeg 
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ORG 

05CH 



; Die 

Daten 

und 

der 

residente Programmteil 

; werden zum Teil in 

den PSP verlagert 

; (siehe Text) 


EVEN 





Datenfeld: 




I Datenbereich des 

OldVidVec 

DD 

7 

; residenten Prg. 

OldKbdVec 

DD 

7 

Ol dT1meVec 

DD 

7 


Counte r 

DW 

? 


EVEN 





In_Prog ress 

DB 

7 


EVEN 





No_Prog ress 

DB 

7 


EVEN 





Start_Prog 





; Zu dieser 

Adresse 

wird der residente 

; Teil 

hin verschoben 

ORG 

OIOOH 



Mai n: 




; Programbeginn 

jmp 

Instal 1 


; Ab zur Installation 

Video_Int: 




; Neuer Videoint. 

emp 

ax , 

OFFFFH 

; Hierüber wird die 

jnz 

Video_aus 

; Kommunikation abge- 

or 

bx, 

bx 


; wickelt. 
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u 

Prog Off 

AX = = 

-1, BX == Fktnr. 

cmp 

bx, 1 



JZ 

Prog On 



cmp 

bx, 2 



jz 

Send Status 



i ret 




Prog Off: 


BX = = 

Prg. abschalten 

mov 

CS:No Progress, 1 


i ret 




Prog 0n: 


BX = = 

Prg . aktivieren 

mov 

CS:No Progress, 0 


i ret 




Send Status 


BX = = 


xor 

ax, ax 

ES: B 

== Zeiger 

mov 

bx, cs 

auf 

das interne 

mov 

es, bx 

Datenfeld, AX == 0 

mov 

bx, OFFSET Datenfeld 


1 ret 




Video aus: 


Weiter 

zur normalen 

jmp 

DWORD PTR CS 

OldVidVec ; Routine 

New Kbd Int 


Keyboardroutine 

cmp 

CS:In Progress, 0 ; 

i1dschirm ist an 

jz 

OldKbd 

normal 

weiter 

push 

ds 

ansonsten 

push 

ax 

Regist 

ar Sichern 

push 

dx 



mov 

ax, BIOS DAT 

I Modusbyte holen 

mov 

ds, ax 

; u. 

Ausgabebit wieder 

mov 

al , Crt Mode 

Set; einschalten 

o r 

al , Enable 



mov 

Crt Mode Set 

al ; da 

gleiche beim 

mov 

dx, CRT Port 

; Cr 

:-Register machen 

out 

dx, al 



mov 

CS:Counter, 

^ait_Count ; Counter 


; neu setzen 

und Flag löschen 

mov 

CS:In Progress, 0 


i n 

al, KBD Data 

; KBC-Data holen und 

i n 

al. KBD Ctrl 

; 1 gno rie ren 

mov 

dx , ax 



o r 

al, CIear Port 


out 

KBD Ctrl, al 



mov 

ax , dx 



out 

KBD Ctrl, al 



mov 

al, EOI 



out 

Int Cont, al 



pop 

dx 

; Register zurück 

pop 

ax 

; und Ende 

pop 

ds 



i ret 




OldKbd: 




; Counter auf Anfangswert 

jnd 

; alte Routine anspringen 


mov CS: 

Counter, Wait 

Count 


jmp 

DWORD PTR CS 

01dKbdVec 

Time Vec: 

; Timerrouti 

e 

cmp 

CS:No Progress, 1 ; 

3 rg. sti11 ge 1 egt? 

Jz 

Old Time 



cmp 

CS:In Progress, 1 ; 

3chirm aus ? 

jz 

Old Time 



dec 

CS:Counter 

; Counterabgelaufen ? 

jnz 

Old Time 



push 

ds 

; Register retten 

push 

ax 



push 

dx 



mov 

CS:In Progress, 1 

Flag setzen 

mov 

ax, BIOS DAT 


für Bild, aus 

mov 

ds , ax 


Modus-Byte 

mov 

al , Crt Mode 

Set 

holen und Bit 3 

and 

al , NOT Enable 

1öschen 

mov 

Crt Mode Set 

a 1 

Das gleiche 

mov 

dx, CRT Port 


beim Register 

out 

dx , a 1 



pop 

dx 


Register zurück 

pop 

ax 



pop 

ds 



Old Time: 

; weiter zur 

alten Timer- 

jmp 

DWORD PTR CS 

OldTimeVec ; Routine 

B1 s _ H i e r : 

; Bis hier wird's resident gemacht 

Instal 1 : 

; Installations-Teil 


mov 

ah, 09H 

I 1 • 

Mel düng 

mov 

dx, OFFSET MSG1 ; ausgeben 

i nt 

02 1H 



mov 

ax, OFFFFH 
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bx , 2 
10H 

ax, OFFFFH 


jz 

Instal 1_2 


No Instal 1 : 

mov 

ah, 09H 


mov 

dx, OFFSET 

MSG3 

i nt 

02 1H 


mov 

ah, 09H 


mov 

dx, OFFSET 

MSG4 

int 

02 1H 


mov 

ax, 04C05H 


int 

2 XH 


Instal 1_2: 

mov 

ax, cs 


mov 

es, ax 


mov 

ds, ax 



; ob schon 
: instal1iert 


; schon da 
; Meldung 3+4 
; ausgeben 


und abbrechen 


ax, cs ; Segment register 

es, ax ; auf CS setzen 

ds, ax 

cx,(OFFSET Bis_Hier - OFFSET V1deo_Int) 
; Größe des residenten Teils 
; berechnen und, zum Teil, 

; in den PSP relozieren 
si, OFFSET Video_Int 
di, OFFSET Start_Prog 
movsb 

Counter, Wait_Count ; Alle Flags und 
In_Progress, 0 j Zähler auf Defaults 
No_Progress, 0 

ax, 03510H ; Alle von uns 

021H ; Int. Vektoren 

WORD PTR OldVidVec, bx ; über DOS 
WORD PTR OldVidVec+2,es; holen 
ax, 03509H ; und sichern 

02 1H 

WORD PTR 01dKbdVec, bx 
WORD PTR 01dKbdVec + 2, es 
ax, 03508H 
02 1H 

WORD PTR OldTimeVec, bx 

WORD PTR OldTimeVec + 2, es 

ax, 0251OH ; Unsere eigenen 

dx, OFFSET Start_Prog; Routinen ein- 

02 1H ; setzen 

ax, 2509H 


dx, OFFSET New_Kbd_Int 
dx, OFFSET Video_Int 
dx, OFFSET Start_Prog 
021H ; Ad i 

ax, 02508H 
dx, OFFSET Time_Vec 
dx, OFFSET VIdeo_Int 
dx. OFFSET Start_Prog 
2 1H 

ah, 09H ; C 


nt ; Da reloziert 
;wurde erst die 
g ;j etzt gültigen 
Adressen berechnen 


Die letzten 
dx, OFFSET MSG2 ; Meldungen 

021H ; ausgeben 

ah, 09H 

dx, OFFSET MSG4 
021H 

Enviromment freigeben. Segmentadr. wird 
im PSP bei 02CH vom DOS abgelegt. Wird 
meist vergessen zu machen (bei residenten 
Programm), gibt aber etwas Platz 
im Speicher 
ax, 04900H 
es, CS:[02CH] 

02 1H 

Größe des residenten Bereichs in Para¬ 
graphen (16 Bytes) berechen und das 
ganze über DOS resident machen 


mov 

ax , 

mov 

dx , 

sub 

dx, 

add 

dx, 

mov 

cl , 

shr 

dx, 

1 nc 

dx 

1 nt 

02 1H 

MSGX db 13, 

10 , 


MSG2 db 1 installiert. ‘ , 13, 10, '$' 

MSG3 db 'bereits installiert.', 13, 10, ’$' 

MSG4 db 'von R. Haas, 87-90.’, 13, 10, 13, 10, '$' 


CSeg f 
END Main 
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Flucht in die dritte Dimension 

3D-Funktionsplotter unter BASIC2 

Bilder von Flächen, die sich im Raum ausdehnend verbiegen, wölben und 
drehen, gehören zu den aufregendsten Grafiken, die ein Computer zu be¬ 
rechnen in der Lage ist. Viele staunen über derartige Gebilde, dabei sind 
diese Formen nichts anderes als gezeichnete mathematische Formeln. 


Das Programm Animator berechnet 
nun genau diese dreidimensionalen 
Funktionen und bringt deren grafische 
Darstellung auf den Monitor. Es läuft 
auf allen Amstrad 1512/1640 mit 640 
kByte RAM und einer EGA-Karte. Das 
Programm ist auf den Amstrad LQ 
3500 Drucker ausgelegt. 

Animator ist menügesteuert, wobei die 
einzelnen Aktionsmöglichkeiten durch 
Drücken der angegebenen Funktions¬ 
tasten erreicht werden. Ein Druck auf 
die ESC-Taste bringt Sie zurück ins 
Hauptmenü. 

Das Hauptmenü 

Aus diesem heraus können Sie vier Un¬ 
terpunkte an wählen: 

O Funktionen: 

Hier wird Ihnen eine Liste von be¬ 
reits im Programm integrierten 
Funktionen präsentiert, aus "der Sie 
beliebig wählen können. Von hier 
aus ist auch der Programmteil zum 
Zeichnen der Funktionen zu aktivie¬ 
ren, deren Parameter in einem von 
hier aus erreichbaren Untermenü 
beliebig verändert werden können 
(dazu später mehr). 


O Hilfe 

Informationen und Hinweise zur 
Programmbedienung sind hier ab- 
rufbar. 

O Druckerabfrage 

Hier wird der Drucker initialisiert. 
Wenn Sie die Grafiken auf den 
Drucker bringen wollen, sollten Sie 
unabhängig von diesem Menü den 
Druckertreiber EPSMONH6.SYS 
ins gleiche Verzeichnis wie GEM 


-PC-Proqramm—i 


kopieren. Wenn Sie einen Amstrad 
PC mit 512 kByte Arbeitsspeicher 
besitzen, so ist es nicht notwendig, 
diesen Punkt anzuwählen. Sie müs¬ 
sen in diesem Falle vor dem Start 
von GEM das MS-DOS-Programm 
GRAPHICS laden. Sie sind dann al¬ 
lerdings auf Ausdrucke per Print- 
Screen-Taste beschränkt. 

O Ende 

Diese Funktion beendet das Pro¬ 
gramm. 

Programmspezialitäten 

Animator verfügt über einige Extras, 
die diese Software sehr variabel ge¬ 
stalten. 

Neben der Modifikation der Abbil¬ 
dungswerte ihrer gewählten Funktion 
sind Sie in der Lage, zwei verschiedene 
Ansichten der Grafiken zu wählen. Da 
ist zum einen die herkömmliche Netz¬ 
darstellung. Die Fläche wird dabei als 
eine Art verschobenes Gitter darge¬ 
stellt. 

Wählen Sie allerdings die Darstellungs¬ 
art mit Lichtvektor, so wird das Gitter 
durch ausgefüllte Flächen ersetzt. Die 
einzelnen Farben sind dabei in Abhän¬ 
gigkeit von einer fiktiven Lichtquelle 
zu sehen. 

Abbildungswerte 

Die variablen Werte, mit denen Sie die 
Grafiken nach Belieben verändern kön¬ 
nen, sind im folgenden aufgelistet. 

O Linienanzahl: 

Die Auflösung der Grafik wird be¬ 
stimmt (Standardwert: 30). Je höher 
dieser Wert gewählt wird, desto län¬ 
ger ist die Rechenzeit. 

O Winkel zur z-Achse: 

Drehung der Grafik um die z-Achse 
(Standardwert: 20). 

O Stauch- und Streckfaktor: 

Dieser Wert bedingt die Ausdeh¬ 
nung des Bildes in x-z-Richtung. 
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O Darstellungsbereich: 

Die oberen und unteren Maximal¬ 
werte für x,y und z können in die¬ 
sem Punkt von Ihnen bestimmt 
werden. 

O Abbildungsgröße - x: 

Bestimmung der Größe des Bildes in 
x-Richtung (Standardwert: 8400). 

O Abbildungsgröße — y: 

Bestimmung der Größe des Bildes in 
y-Richtung (Standardwert: 5000). 

(Dietmar Dörr/jf) 

Um das Programm lauffähig in Ihren Speicher zu be¬ 
kommen, müssen Sie unter GEM den Interpreter 
BASIC2 einladen. Tippen Sie mittels dieses Pro¬ 
gramms das Listing ein, und sichern Sie es. 

Dieses Listing ist NICHT mit anderen BASIC-Dialek- 
ten zu bearbeiten. 


Bild2: ...mal mit 
Füllung 



REM 3-0 - Funktiosplotter 

REM Juni 1989 By Dietmar Dörr 

CLEAR RESET 
ON ERROR GOTO fehler 


PRINT AT ( 16; 12 ) COLOUR(2) " F4 , ';MODE(2) COLOUR 
(15) " Zurück zu den Funktionen " 

PRINT AT ( 16 ; 14 ) COLOUR(2) " F5 ";MODE{2) COLOUR 
(15) ” Zurück zum Hauptmenue " 

GOSUB tasteS 


REM Definieren der Fenster 

CLOSE WINDOW 3:CLOSE WINDOW 4 
FOR i=1 TO 4:CLOSE 4i:NEXT i 
OPEN #1 WINDOW 1 

SCREEN #1 GRAPHICS 640 FIXED.350 FIXED 
WINDOW #1 FULL 
OPEN #2 WINDOW 2 

SCREEN #2 GRAPHICS XUSABLE-80 FIXED.YUSABLE-100 FI 
X ED INFORMATION OFF 

WINDOW #2 TITLE "3-D-Animator" 

WINDOW #2 FULL 
WINDOW #2 PLACE 35,40 
STREAM #2 
OPEN #4 WINDOW 4 

SCREEN #4 GRAPHICS XUSABLE-100 FIXED,YUSABLE-25 FI 
XED INFORMATION OFF 

WINDOW #4 TITLE ”-> Bitte aufmerksam Lesen <-- 

WINDOW #4 FULL 
WINDOW 44 PLACE 50,5 

REM Anfangszuweisungen 

GOSUB Zuweisungen 
GOSUB titelbild 

REM Zuweisungen der Bildveränderlichen 

LABEL Zuweisungen 
OPTION DEGREES 
OPTION DECIMAL " . " , " " 

1inienanzahl=30 

winke1=20 

streck=l 

x f=—3 

xg = 3 

y f = 0 

yg=l 

z f = -3 

zg=3 

abx=8400 

aby=5000 

RETURN 

REM Abbildungswerte 

LABEL unm_pa 
CLS 

WINDOW #2 OPEN 

WINDOW TITLE " -> Bitte Funktionstaste drücken 

<- ":SET MODE(4) 

PRINT AT ( 14 ; 3) POINTS (20) COLOUR(12) " Funktion 
sparameter 

PRINT AT ( 16; 6) COLOUR(15) 11 Fl Programmstart 

PRINT AT ( 16; 8) C0L0UR(12) " F2 ";MODE(2) COLOUR 
(8) " Abbildungswerte (Untermenue) " 

PRINT AT ( 16;10 ) COLOUR(12) " F3 ";MODE(2) COLOU 
R ( 8 ) " Abbi 1 dungsg rö(3en ( Untermenue ) " 


LABEL grenzen 
CLS 

WINDOW TITLE " -> Bitte Funktionstaste drücken 

<-" : SET MODE(4) 

PRINT AT (18;3)POINTS (20) COLOUR(12) " Abbildung 
swerte 

PRINT AT ( 1 1 ;5)COLOUR(1)" Fl ";MODE(2)COLOUR(2) 

" Linienanzahl COLOUR (9) '' 30";CO 

LOUR ( 1 ) " ******" 

PRINT AT ( 11;6) ;COLOUR(1)" F2 ' ;MODE(2)COLOUR(2) 
" Winkel zur Z - Achse :";COLOUR(9)" 20";C 


OLOUR ( 1 ) " ******" 

PRINT AT (11 ; 7 ) COLOUR(1)" F3 ";MODE(2)COLOUR(2) 
" Stauch - Streckfaktor COLOUR(9)" .7";C 

OLOUR(1 ) " ******" 

PRINT AT ( 11;8 ) COLOUR(1)" F4 ",MODE(2)COLOUR(2) 
" X - Unten COLOUR(9)" - 3" ;C 

0 LOUR (1)" ******" 

PRINT AT (11;9)COLOUR(1)" F5 ';MODE(2)COLOUR(2) 

X - Oben :";CO LOUR(9)" 3";CO 

LOUR ( 1) " ******" 


PRINT AT (11;10)COLOUR(1)" 

Y - Unten 

OLOUR( 1 ) " ******" 

PRINT AT ( 11; ll)COLOUR(1)" 

Y - Oben 

O LOUR(1)" ******" 

PRINT AT (11;12)COLOUR<1)" 

" Z - Unten 
OLOUR ( 1 ) " ******" 

PRINT AT (11;13)COLOUR(1)" 

" Z - Oben 
OLOUR(1)" ******" 

PRINT AT (4;15)COLOUR(4)" 

-> Zurück zum Untermenue 


F 6 ";MODE(2)COLOUR(2) 

:";COLOUR(9)" 0";C 

F7 ";MODE(2)COLOUR(2) 
:";COLOUR(9)" 1";C 

F 8 ";MODE(2)COLOUR(2) 

COLOUR(9)" -3";C 

F 9 ";MODE(2)COLOUR(2) 

:";COLOUR(9)” 3";C 

F10 ";COLOUR(15)" - 

Funktionsparameter <- 


SET MODE(1) 


LABEL grenzenl 

SET MODE(2):SET C0L0UR(4) 

PRINT AT (5 7;5 ) USING" ##";1inienanzahl 

PRINT AT (5 7;6) USING" 4##";winke1 

PRINT AT (57;7) USING" ,44";streck 

PRINT AT (5 7;8) USING"444.#4";xf 

PRINT AT (57;9)USING"444.44“;xg 

PRINT AT (57; 10 ) USING"444.44";yf 

PRINT AT (57;11)USING"444.44";yg 

PRINT AT (57;12)USING"444.44";zf 

PRINT AT (57;13)USING"#44.44";zg 

SET MODE(1):SET COLOUR(l) 

GOSUB taste? 


LABEL z uw_1 

LOCATE 59;5:TEXT CLEAR EOL 

WINDOW CURSOR ON 

INPUT AT (60;5);11nienanzahl 

IF linienanzahl <10 OR linienanzahl >30 THEN GOSUB 
mel_d1 

WINDOW CURSOR OFF 
GOSUB taste 7 
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Ein Abonnement ist praktisch 
und gewährt zusätzlich noch Preisvorteile. 


Das Abonnement PC Amstrad International ist preiswert zu haben: 


Im Inland bzw. West-Berlin 
6 Ausgaben = 33,- DM 
12 Ausgaben = 66,- DM 


Im europäischen Ausland 
6 Ausgaben = 48,— DM 
12 Ausgaben = 96,- DM 

Bitte benutzen Sie die Bestellkarte. 


Im außereuropäischen Ausland 
6 Ausgaben = 60,— DM 
12 Ausgaben = 120,- DM 


Widerrufsrecht: 

Jeder Abonnent hat das Recht, seine Bestellung innerhalb 
einer Woche beim DMV-Verlag, Postfach 250, 3440 

Eschwege, schriftlich zu widerrufen. Die rechtzeitige ¥7I ^ a ja i 

Absendung des Widerrufschreibens genügt zur Frist- DMV“VCrl8g * I OStläCll 250 * 3440 ESCHWCfiC 

Währung. ° 
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LABEL zuw_2 

LOCATE 58;6:TEXT CLEAR EOL 
WINDOW CURSOR ON 
INPUT AT (59;6);w1nkel 

IF Winkel <0 OR wlnkel >360 THEN GOSUB mel_d2 
WINDOW CURSOR OFF 
GOSUB taste 7 



LABEL zuw_11 

LOCATE 48;9:TEXT CLEAR EOL 
INPUT AT(4 7;9);aby 

IF aby <500 OR aby>5000 THEN GOSUB mel_dll 
GOSUB tasteS 


REM Prog. zur Darst. der Funktion mit Lichtvektor 


LABEL zuw_3 

LOCATE 57;7:TEXT CLEAR EOL 

WINDOW CURSOR ON 

INPUT AT (58;7);streck 

IF streck >20 THEN GOSUB mel_d3 

WINDOW CURSOR OFF 

GOSUB taste 7 

LABEL zuw_4 

LOCATE 56 ; 8:TEXT CLEAR EOL 
WINDOW CURSOR ON 
INPUT AT (57;8);xf 

IF xf >0 OR xf <-30 THEN GOSUB mel_d4 
WINDOW CURSOR OFF 
GOSUB taste7 

LABEL zuw_5 

LOCATE 5 7 ; 9:TEXT CLEAR EOL 
WINDOW CURSOR ON 
INPUT AT (58;9);xg 

IF xg <0 OR xg >30 THEN GOSUB mel_d5 
WINDOW CURSOR OFF 
GOSUB taste 7 

LABEL zuw_6 

LOCATE 56;10:TEXT CLEAR EOL 
WINDOW CURSOR ON 
INPUT AT (57;10) ;yf 

IF yf >0 OR yf <-30 THEN GOSUB mel_d6 
WINDOW CURSOR OFF 
GOSUB taste 7 

LABEL zuw_7 

LOCATE 57;11:TEXT CLEAR EOL 
WINDOW CURSOR ON 
INPUT AT (58;11);yg 

IF yg <0 OR yg >30 THEN GOSUB mel_d7 
WINDOW CURSOR OFF 
GOSUB taste 7 

LABEL zuw_8 

LOCATE 56;12:TEXT CLEAR EOL 
WINDOW CURSOR ON 
INPUT AT (5 7;12 ) ; z f 

IF zf >0 OR zf <-30 THEN GOSUB mel_d8 
WINDOW CURSOR OFF 
GOSUB taste7 

LABEL zuw_9 

LOCATE 57;13:TEXT CLEAR EOL 
WINDOW CURSOR ON 
INPUT AT (58;13 ) ;zg 

IF zg <0 OR zg >30 THEN GOSUB mel_d9 
WINDOW CURSOR OFF 
GOSUB tas te 7 

REM Abbl1dungsg rößen 

LABEL abb 
CLS 

WINDOW TITLE " -> Bitte Funktionstaste drücken 

PRINT AT (17;3) MODE(4) COLOUR(12) POINTS(20) " A 
bbi1dungsgrößen 

PRINT AT (3;5)MODE(2 ) COLOUR(9) STRING$(66, " * " ) 
PRINT AT (7;7) MOOE(4) COLOUR(IO)" Fl ";MODE(2) 
COLOUR(15) " Abbildungsgröße X 8400 ";COLOUR(9 
)" **** " 

PRINT AT (7 ; 9 ) MODE(4) COLOUR(IO)" F2 ";MOD£(2) 
COLOUR(15) " Abbildungsgröße Y 5000 ";C0L0UR(9 
)" **** " 

PRINT AT (3; 11)MODE(2) C0L0UR(9) STRING$(66 , " * " ) 

PRINT AT (6;15) M0DE(4)" F3 ";COLOUR(10)" -> 

Zurück zum Untermenue Funktionsparanieter <- 

LABEL grenzen2 

SET MODE(2):SET COLOUR (8) 

PRINT AT (48; 7) USI NG ''##«#"; a bx 
PRINT AT (48;9) USING''»»##";aby 
SET MOOE(1 ) :SET COLOUR (1) 

GOSUB taste8 

LABEL zuw_l 0 

LOCATE 4 8 ; 7 : T E X T CLEAR EOL 
INPUT AT (47;7);abx 

IF abx <1000 OR abx >8400 THEN GOSUB mel_dlO 
GOSUB taste8 
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LABEL haupt_l 

WINDOW #2 CLOSE 

CLOSE 1;OPEN 1 WINDOW 1 

WINDOW Hl OPEN 

STREAM #1 

WINDOW TITLE " -> Darstellung der Funktion ml 

t Lichtvektor <- " 

BOX 0;0,8400,5000 COLOUR(l) FILL 

LABEL haupt_l_2 
dat= 1 

IF d r = 1 AND abfr = 2 THEN GOSUB kp_t:GOSUB dr_ein_3: 
dat=5:WIND0W Hl TITLE" Die Funktion wird jetzt i 
n den Duckerspeicher gezeichnet. Bitte warten : 

STREAM dat 

GRAPHICS »dat FILL STYLE 1 
puanz=l1nienanzahl 

DIM x(puanzf1),y(puanz+l),yo(puanz+l) 

wz=winkel 

masz=streck 

proj_zx=C0S(wz)*masz :proj_zy=SIN(wz)*masz 
xurftg=xf :xobg=xg :x_l=xobg-xuntg 
yuntg=yf :yobg=yg :y_l=yobg-yuntg 
zun tg = z f :zobg = zg :z_l=zobg-zuntg 
masx=abx/(x_l+Z_1»proj_zx) 
masy=aby/(y_l+z_1*proj_zy) 
xli = l : y1i = 1 : z1i = 1 

l=SQR(xli'2+yli A 2+zli‘2) :xli=xl1/1 :yli=yli/l :zl 
i =z 1 i/1 

dz=z_l/puanz ;dx=x_l/puanz 
j=0 

FOR z=zuntg TO zobg STEP dz 
i =0 

FOR x=xuntg TO xobg STEP dx 
y = FN y(x , z ) :yo = y 

xk=(x-xuntg-proj_zx*(z-zobg))*masx 
yk=(y-yuntg-proj_zy*(z-zobg))*masy 
IF j * 1=0 THEN GOTO nicht 
dyl = yo-yo(i) : dy2 = yo-yo(i +1 ) 
xn=dyl*dz :yn=-dx*dz :zn=dx*dy 2 
1=SQR(xn*xn+yn*yn+zn*zn) 
xn = xn/1 :yn = yn/l :zn = zn/l 
scalar=xn*xli+yn*yl i+zn*z1i 
dunkel=8-INT(ABS(8.999*scalar)) 

SHAPE »dat,x(i ) ; y(i ) ,xk;yk,x(i+ 1);y(i + 1),xa;ya FIL 
L WITH dunkel COLOUR(IO) 

SHAPE »dat,x(i);y(i ) ,xk ; yk,x(1+1 ) ;y(i+1) ,xa;ya COL 
OUR( 12 ) 

LABEL nicht 
1 = i + 1 

xa=x(1) :ya=y(1) :yo(i)=yo 

x(i)=xk :y(1)=yk 
NEXT x 

j=j + l 

NEXT z 

STREAM 2:CLOSE 5 

IF d r = 1 AND abfr = 2 THEN WINDOW #1 CLOSE :abfr=l: G 
OSUB unm_pa 

PRINT CHR$(7):WINDOW #1 TITLE"-> Bitte Leer - 

Taste drücken <-" 

GOSUB taste2 

REM Funktion als Netzdarstellung 

LABEL haupt_2 

WINDOW #2 CLOSE 

CLOSE 1:OPEN 1 WINDOW 1 

WINDOW #1 OPEN 

STREAM »1 

WINDOW TITLE -> Darstellung der Funktion als 

Netzdarstellung <- " 

BOX 0;0,8400,5000 COLOUR(1) FILL 

LABEL haupt_2_2 
dat= 1 

IF d r=1 AND abf rag = 2 THEN GOSUB kp_t:GOSUB dr_ein_ 
3:dat=5:WINDOW »1 TITLE " Die Funktion wird jetz 
t in den Druckerspeiche'’ gezeichnet. 81tte warte 
n ! " 

STREAM dat 

puanz=linlenanzahl 

DIM x(puanz+1),y(puanz+1) 

wz=winkel 

masz=streck 

proj_zx=COS(wz)*masz:proj_zy=SlN(wz)*masz 
xuntg=xf :xobg=xg :x_l=xobg-xuntg 
yuntg=yf :yobg=yg :y_l=yobg-yuntg 
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zuntg=zf :zobg=zg :z_l=zobg-zuntg 

masx=abx/(x_l+z_1*proj_zx) 

masy=aby/(y_1+z_1*proj_zy) 

1=0 

FOR z=zuntg TO zobg STEP z_1/puanz 
1=0 


FOR x=xuntg TO xobg STEP x_1/puanz 
y=FN y(x,z) 

xk=(x-xuntg-proj_zx*(z-zobg))*masx 

yk=(y-yuntg-proj_zy*(z-zobg))*masy 

IF abfrage=2 AND j * i <>0 THEN SHAPE #dat,x(i ) ;y(i ) 
,xk;yk,x(i+l);y(1+1),xa;ya C0L0UR(4) 

1 = 1 + 1 

xa=x(1):ya=y(i) 
x(1)=xk:y(1>=yk 
NEXT x 

j = j + l 

NEXT z 

STREAM 2 : CLOSE 5 

IF d r=1 AND abf rag = 2 THEN WINDOW #1 CLOSE:abfrag=1 
:GOSUB unm_pa 

PRINT CHR$(7):WINDOW #1 TITLE " -> Bitte Leer 

- Taste drücken <- " 

GOSUB taste2_l 


REM Funktionsdefinitionen 
LABEL fl 

DEF FN y(x,z)=SQR( l-x A 2/4-z A 2/9) 

GOSUB unm_pa 

LABEL f2 

DEF FN y(x,z)=-l/(x*x+z*z) 

GOSUB unm_pa 

LABEL f3 

DEF FN y(x,z)=2.5*EXP((x*x+z*z)/-2) 

GOSUB unm_pa 

LABEL f4 

DEF FN y(x,z)=2*(SQR(x*x + z*z)*EXP(-x*x-z*z) ) 
GOSUB unm_pa 


LABEL f5 

DEF FN y(x 1 z)=5-SQR(x*x+z*z)-2*COS(SQR(x*x+z*z)) 
GOSUB unm_pa 

LABEL f 6 

DEF FN y (x,z ) = 1 /(1 + x“2 + z‘2 ) 

GOSUB unm_pa 


LABEL f 7 

DEF FN y <x,z) = EXP(-x*2-z*2 ) 

GOSUB unm_pa 

LABEL f 8 

DEF FN y (x,z) = EXP(SQR(x*x+z*z))/COS<2*(x*x +z*z )) * 
SIN(5*(SQR(x*x+z*z) )) 

GOSUB unm_pa 


LABEL f9 

DEF FN y ( x , z ) = EXP ( -x ' 2-z ' 2- 1 / ( x* x + z * z ) * ( - x ‘ 2 -z ~ 2 * 
x* 2 -z* 2 ) ) 

GOSUB unm_pa 

LABEL flO 

DEF FN y (x,z)=-l/(x*x + z*z )- 1/(x*x + z*z ) 

GOSUB unm_pa 

LABEL fll 

DEF FN y (x,z)=-l/EXP(x*x+z*z)-l/EXP(x*x+z*z) 

GOSUB unm_pa 

LABEL f12 

DEF FN y (x,z)=2.9*EXP((x*x+z*z)/-4)-l/(x*x+z*z) 
GOSUB unm_pa 

LABEL f13 

DEF FN y (x,z)=x‘2/z*2 
GOSUB unm_pa 

LABEL f 14 

DEF FN y ( x , z)=EXP (-x‘2-z"2}+SOR(1-x"2/4-z"2/9 ) 
GOSUB unm_pa 

LABEL f15 

DEF FN y ( x , Z)=-1/EXP(x*x + z* z) +SOR(1-x~2/4-z Ä 2 /9 ) 
GOSUB unm_pa 


LABEL f16 

DEF FN y (x,z)= 

GOSUB unm_pa 


LABEL f17 

DEF FN y (x , z > = 

GOSUB unm_pa 
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LABEL f 18 

DEF FN y (x , z ) = 

GOSUB unm_pa 

LABEL f19 

OEF FN y (x,z)= 

GOSUB unm_pa 

LABEL f20 

DEF FN y (x.z)= 

GOSUB unm_pa 

LABEL f21 

DEF FN y (x,z)= 

GOSUB unm_pa 

LABEL f 22 

DEF FN y (x , z ) = 

GOSUB unm_pa 

LABEL f 2 3 

DEF FN y (x , z ) = 

GOSUB unm_pa 

LABEL f 2 4 

DEF FN y (x,z)= 

GOSUB untti_pa 

LABEL f25 

DEF FN y (x, z) = 

GOSUB unm_pa 

REM Funktionen 

LABEL fun_l 

tl$=" SQR ( 1—x A 2/4-z“2/9) " 

t2$=" -l/(x*x+z*z) " 

t3$=" 2.5* EXP((x*x+z*z)/-2) " 

t4$=" 2 *(SQR(x* x + z* z)*EXP(-x*x-z*z) ” 

15$=" 5-SQR(x*x+z*z)-2*C0S(SQR(x*x+z*z)) 

GOSUB form 
GOSUB fu_ta_l 
LABEL fun_2 
CLS 

tl$=" l/(l+x'2+z*2) " 

t2$=" EXP(-X A 2-Z A 2 ) " 

13$=" EX P (SQR(x*x+z*z))/C0S(2*(x*x+z*z))*SIN(5*(SQ 
R(x*x+z*z)))" 

t4$ =" EXP(-x'2-z‘2-l/(x*x + z*z)*(-x'2-z , 2*x'2-z A 2) ) 

t5$= 11 -l/(x*x+z*z)-l/(x*x+z*z)" 

GOSUB form 
GOSUB fu_ta_2 

LABEL fun_3 
CLS 

tl$=" -l/EXP(x*x+z*z)-l/EXP(x*x+z*z ) " 
t2$=" 2.9*EXP((x*x+z*z)/-4)-l/(x*x+z*z)" 
t3$=" x“2/z A 2 " 

t4$=“ EXP(-x A 2-z A 2)+SQR(l-x A 2/4-z A 2/9)" 
t5$ =" -l/EXP(x*x + z*z) + SQR(l-x A 2/4-z A 2/9 ) " 

GOSUB form 
GOSUB fu_ta_3 

LABEL fun_4 
CLS 

tl$=" “ 
t2$ =" " 
t3$ = " - 
t4$=" " 
t5$=" M 
GOSUB form 
GOSUB fu_ta_4 

LABEL fun_5 
CLS 

tl$=" " 
t2$= 11 " 
t3$=“ " 
t4$=" " 
t5$=" " 

GOSUB form 
GOSUB fu_ta_5 

REM Tasten für Funktionen 

LABEL fu_ta_l 

REPEAT 

a=INKEY 

UNTIL aO-1 AND a> = 315 AND a< = 320 OR a = 27 
IF a< >2 7 THEN a = a-314 ELSE a = 27 
IF a=27 THEN GOTO hauptmenue 
ON a GOSUB f1,f2,f3,f4,f5,fun_2 

LABEL fu_ta_2 

REPEAT 
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UNTIL a< >-1 AND a> = 315 AND a< = 320 OR a = 27 
IF a < > 2 7 THEN a=a-314 ELSE a = 27 
IF a=27 THEN GOTO hauptmenue 
ON a GOSUB f6,f7,f8,f9,f10,fun_3 

LABEL fu_ta_3 

REPEAT 

a=INKEY 

UNTIL a< »-1 AND a> = 315 AND a< = 320 OR a = 27 
IF a 027 THEN a = a-314 ELSE a = 27 
IF a=27 THEN GOTO hauptmenue 

ON a GOSUB f 11, f 12,f13,f14,f15,mel_dl2 : REM wird 
me 1 düng nicht benötigt fu_ta_4 einsetzen 

LABEL fu_ta_4 

REPEAT 

a=INKEY 

UNTIL aO-1 AND a> = 315 AND a<=320 OR a = 27 
IF a 027 THEN a = a-314 ELSE a = 27 
IF a=27 THEN GOTO hauptmenue 

ON a GOSUB f16,f17.f18,f19,f20,me1_dl2 : REM wird 
meldung nicht benötigt fun_5 einstezen 

LABEL fu_ta_5 

REPEAT 

a=INKEY 

UNTIL aO-1 AND a> = 315 AND a< = 320 OR a = 27 
IF a 027 THEN a = a-314 ELSE a = 27 
IF a=27 THEN GOTO hauptmenue 

ON a GOSUB f21,f22,f23,f24,f25,me 1_d12 : REM wird 
meldung nicht benötigt fun_6 einsetzen 


REM Hauptmenue 


LABEL hauptmenue 
CLS 

WINDOW TITLE " -> Bitte Funktionstaste drücken 

<-" :SET MODE(4) 

PRINT AT (17;3 ) F0NT(3) POINTS (36) EFFECTS(&XOOOO 
01)COLOUR(10) " Hauptmenue " 

PRINT AT (8;7 ) COLOUR (12) " Fl ";M0DE(2) COLOUR 

(9) " Funktionen " 

PRINT AT (8 ; 9) COLOUR (12) " F2 ";M0DE(2) COLOUR 
(9) " Info " 

PRINT AT (8;11)COLOUR (12) " F3 ";MODE(2) COLOUR 

(9) " Druckerabfrage “ 

PRINT AT (17; 15) F0NT(3) P0INTS(18) COLOUR (4) " 

F4 COLOUR(15) " Programm verlassen 

GOSUB taste4 


REM Darstellung der Funktionen als Menue 


LABEL form 
CLS 

WINDOW TITLE " -> Untermenue Funktionen <- 

PRINT AT (20;2) M0DE(4) C0L0UR(12) " -> ESC 


= Hauptmenue <- 

PRINT AT (2;4 ) MODE (4) 
1) COLOUR(15);t1$ 

PRINT AT (2;6) MODE (4) 
1) CO LOUR(15);t2$ 

PRINT AT (2;8 ) MODE (4) 
1) COLOUR(15) ;13$ 

PRINT AT (2;10) MODE (4) 
1) CO LOUR(15) ;14$ 

PRINT AT (2 ; 12 ) MODE (4) 
1) COLOUR(15);t5$ 

PRINT AT (12;15)FONT(3)P 
4) " F 6 ”;COLOUR(1) 


COLOUR 

(2) • 

Fl 

" ; MODE( 

COLOUR 

(2) " 

F 2 

" ;MODE( 

COLOUR 

(2) " 

F 3 

M ;MODE( 

COLOUR 

(2) " 

F 4 

" ;MO D E( 

COLOUR 

(2) " 

F 5 

" ; MODE( 


NT S(18)MODE (4) COLOUR ( 
-> Weitere Funktione 


n <- 

RETURN 


REM Titelbild 

LABEL tltelbild 
WINDOW #2 OPEN 

SET MODE(4);SET F0NT(3):SET POINTS(14):SET EFFECTS 
(&X000001): SET C0L0UR(12) 

PRINT AT (2 ; 2) " Rainbow Warrior present's " 

SET MODE(1 ) :SET POINTS(72):SET EFFECTS(&X0000001): 

SET COLOUR(7) 

PRINT AT (2;7) " 3-D " 

SET MODE(3):SET EFFECTS (&X0000111) 

PRINT AT (9;8 ) ”Funk11ons-" 

SET MODE(2) 

PRINT AT (34;10) "plotter" 

SET MODE(4):SET POINTS(20):SET COLOUR(14):SET EFFE 
CTS (&X0000100) 

PRINT AT (45;13) " Version 1.0 " 

FOR 1=1 TO 10000 
NEXT 1 
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SET EFFECTS OFF;SET FONT(l):SET POINTS(10):SET COl 
OUR(10) 

PRINT CHR$(7):PRINT AT (15;15) MODE(4) " -> Bi 

tte Leer Taste drücken <- " 

GOSUB tastel 

REM Tastenbelegungen 

LABEL tastel 
REPEAT 

UNTIL INKEY$=" GOSUB hauptmenue 
LABEL taste2 

IF j j = 3 THEN WINDOW #1 CLOSE:GOTO unm_pa 
REPEAT 

UNTIL INKEY$=" ":IF dr=l THEN GOTO dr_ein_2 
WINDOW #1 CLOSE:GOSUB unm_pa 

LABEL taste2_l 

IF j j = 3 THEN WINDOW #1 CLOSE:GOTO unm_pa 
REPEAT 

UNTIL INKEY$=" ":IF dr=l THEN GOTO dr_ein_4 
WINDOW #1 CLOSE:GOSUB unm_pa 

LABEL taste4 

REPEAT 

a=INKEY 

UNTIL *0-1 AND a> = 315 AND a<=318 
a=a-314 

ON a GOSUB fun_l,info,dr_abfr,programmende 

LABEL tas te6 

REPEAT 

a=INKEY 

UNTIL aO-1 AND a> = 315 AND a< = 319 
a=a-314 

ON a GOSUB hp_wa,grenzen,abb,1oeschl, 1 oesch2 

LABEL taste 7 

REPEAT 

a=INKEY 

UNTIL aO-1 AND a> = 315 AND a< = 324 
a=a-3 1 4 

ON a GOSUB zuw_l,zuw_2,zuw_3,zuw_4,zuw_5,zuw_6,zu 
w_7,zuw_8,zuw_9,unm_pa 

LABEL tasteS 
REPEAT 
a=INKEY 

UNTIL a< >-1 AND a> = 315 AND a< = 317 
a=a-314 

ON a GOSUB zuw 10,zuw 11 , unm pa 

REM Labels 

LABEL 1oeschl 
GOSUB feh 
GOSUB Zuweisungen 
GOSUB fun_l 

LABEL 1oesch2 
GOSUB feh 
GOSUB Zuweisungen 
GOSUB hauptmenue 

REM Alert -> Meldungen 

LABEL programmende 
ende=0 

ende=ALERT 2 TEXT " Achtung 1"," Sie been 

den das Programm !"," ".“Wollen Sie wirklich bee 
nden ?" BUTTON RETURN "ENDE"."Hauptmenue” 

IF ende=1 THEN SYSTEM 
IF ende=2 THEN GOTO taste4 

LABEL dr_abfr 
ab=0 

ab=ALERT 3 TEXT '."Besitzen Sie einen Drucker ", 

'• " BUTTON RETURN " Ja Nein " 

IF ab=1 THEN d r=1:GOSUB dr_ein_l 
IF ab=2 THEN GOSUB taste4 

LABEL dr_ein_l 

ALERT 1 TEXT "Bitte Schalten sie den Drucker ein 
!","Und haben Sie das Papier richtig einge-","le 
gt.Achten sie darauf das der Drucktr-","eiber EP 
SM0NH6.SYS im gleichen Laufwerk", "ist wo von Sie 
auch GEM geladen haben."BUTTON RETURN " Weit 
er 

LPRINT CHR$(27) "@":GOSUB taste4 
LABEL dr_ein_2 

WINDOW #1 TITLE " -> Bitte endscheiden Sie sic 

h <-" 

abfr=0 
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a bfr=ALERT 2 TEXT Wollen Sie diese Grafig Dr 

ucken"," " BUTTON RETURN " Nein "," Ja 
IF abf r=1 THEN WINDOW #1 CLOSE :GOTO unm_pa 
IF abf r = 2 THEN GOTO haupt_l_2 

LABEL dr_ein_3 

WINDOW #1 TITLE " -> Bitte wählen Sie <- " 

abfra-0 

abfra=ALERT 2 TEXT Welche Hardcopy Größe wünsche 
n Sie ! Normale Größe ? <—> Doppelte 

Größe ? " BUTTON RETURN " Normal Doppelt 

WINDOW TITLE " " 

IF abf ra=l THEN GOTO hardcopyl 
IF abf ra = 2 THEN GOTO hardcopy2 

LABEL dr_ein_4 

WINDOW #1 TITLE " -> Bitte endscheiden Sie sic 

h <-" 

abf rag = 0 

abfrag=ALERT 3 TEXT Wollen Sie diese Grafig 

Drucken "," " BUTTON RETURN " Nein Ja " 

IF abf rag=1 THEN WINDOW #1 CLOSErGOTO unm_pa 
IF abf rag = 2 THEN GOTO haupt_2_2 

LABEL dr_ein_5 

WINDOW #1 TITLE " -> Bitte endscheiden Sie sic 

h <-" 

a = 0 

a=ALERT 3 TEXT " Wollen Sie diese Grafig Druck 

en " BUTTON RETURN " Nein "," Ja 

IF a=l THEN WINDOW #1 CLOSE: GOTO unm_pa 
IF a = 2 THEN GOTO haupt_2_2 

LABEL hp_wa 
abf rage = 0 

abfrage=ALERT 2 TEXT " Graphik mit Lichtvektor 

Graphik als Netzdarstellung " BUTTON RETURN 
Mit Netzdarstellung " 

IF abfrage=l THEN GOTO haupt_l 
IF abfrage = 2 THEN GOTO haupt_2 

LABEL me 1_d1 

A UERT 3 TEXT " Sie haben die falsche Linienanzahl 
"." gewählt. Bitte berichtigen Sie ihre Eing 

abe. Erlaubt 10 bis 30 Linien in der Grafik. 

BUTTON RETURN " Nocheinmal ":GOTO zuw 1 
RETURN 

LABEL mel_d2 

ALERT 3 TEXT " Sie haben den falschen Winkel von " 
Z “ zur X - Achse gewählt. Bitte berichti 

gen Sie ihre Eingabe.! Oer Wert darf im Bere 

ich zwischen 1 und 360 Grad liegen. " BUTTON 

RETURN " Nocheinmal ":GOTO zuw_2 
RETURN 

LABEL me 1_d3 

ALERT 3 TEXT " Sie haben den falschen Stauch/-Stre 
ck faktor für Z - Achsentei1ung gewählt. 

Bitte berichtigen Sie ihre Eingabe.! "," Der We 
rt darf im Bereich zwischen 0 und 20 liegen 

. " BUTTON RETURN " Nocheinmal ":GOTO 2uw 3 

RETURN 

LABEL me 1_d4 

ALERT 3 TEXT " Sie haben den falschen X - unten We 
rt "," gewählt. Bitte berichtigen Sie ihre E 

ingabe.! Der Wert darf im Bereich zwischen 0 

bis -30 liegen. Auch "," Komma (.) Eingaben erl 
aubt. " BUTTON RETURN " Nocheinmal ":GOTO zuw_ 

4 

RETURN 

LABEL me1_d5 

ALERT 3 TEXT " Sie haben den falschen X - oben Wer 
t gewählt. Bitte berichtigen Sie ihre Ei 

ngabe.! Der Wert darf im Bereich zwischen 0 

bis 30 liegen. Auch Komma (.) Eingaben erlau 

bt. " BUTTON RETURN " Nocheinmal ":GOTO zuw 5 
RETURN 

LABEL me1_d6 

ALERT 3 TEXT " Sie haben den falschen Y - unten We 
rt gewählt. Bitte berichtigen Sie Ihre E 

ingabe.! Der Wert darf im Bereich zwischen 0 

bis -30 liegen. Auch Komma (.) Eingaben erl 

aubt. " BUTTON RETURN " Nocheinma1":GOTO zuw_6 

RETURN 

LABEL me 1 d7 
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ALERT 3 TEXT " Sie haben den falschen Y - oben Wer 
t " , " gewählt. Bitte berichtigen Sie ihre Ei 

ngabe.! Der Wert darf im Bereich ”, " zwischen 0 
bis 30 liegen. Auch Komma (.) Eingaben erlau 

bt. " BUTTON RETURN " Nocheinmal ":GOTO zuw 7 

RETURN 

LABEL mel_d8 

ALERT 3 TEXT " Sie haben den falschen Z - unten We 
rt gewählt. Bitte berichtigen Sie ihre E 

Ingabe.! Der Wert darf im Bereich "," zwischen 0 
bis -30 liegen. Auch Komma (.) Eingaben erl 

aubt. " BUTTON RETURN " Nocheimal ":GOTO zuw_8 

RETURN 

LABEL mel_d9 

ALERT 3 TEXT " Sie haben den falschen Z - oben Wer 
t gewählt. Bitte berichtigen Sie ihre Ei 

ngabe.! Der Wert darf im Bereich zwischen 0 

bis 30 liegen. Auch Komma (.) Eingaben erlau 

bt. " BUTTON RETURN “ Nocheinmal ":GOTO zuw 9 

RETURN 


LPRINT CHR$(27) + "G";TAB(1) "X - Unten:";TAB (13) 
"Y - Unten:";TAB (25) "Z - Unten:";TAB (37) "Ab 
bi 1dungsgröße - X:";TAB (58) ''Abbildungsgröße - 
Y:"+ CHR$(27) + "H" 

LPRINT STRING$(80,"—") 

LPRINT CHR$(14) + CHR$(27) + "G";T AB (2) x f ; T AB (8 
) y f;T AB (14) z f;TAB (21) abx ;TAB (32) aby; + CH 
R$( 20 ) + CHR$(27) + "H" 

LPRINT STRING$(80, 

LPRINT STRING$(80,"=") 

LPRINT CHR$(27) + "G";TAB(1) "X - Oben :";TAB (13) 
"Y - Oben ;TAB (25) "Z - Oben :";TAB (37) "L 

inienanzahl :";TAB (51) " Winkel :";TAB (61) "S 
tauch - Streckf. :"+CHR$(27) + "h" 

LPRINT STRING$(80,") 

LPRINT CHR$(14) + CHR$(27) + ”G";TAB (2) xg;TAB (8 
) yg;T AB (14) z g;TAB (21) 11nienanzah 1 ;TAB (27) 
Winkel ; T AB (35) streck ;+ CHR$(20) + CHR$(27) "H 

LPRINT STRING$(80,"-") 

LPRINT:LPRINT STR ING$(80, "»") 

LPRINT CHR$(27) + "F" + CHR$(27) + "x" + CHR$(0) 
RETURN 


LABEL me 1_dl0 

ALERT 3 TEXT " Sie haben die Falsche Abbi1dungsgrö 
ße - X gewählt. Bitte berichtigen Sie ihre " 

Eingabe.! Der Wert darf im Bereich zwisch 

en 1000 bis 8400 liegen. " BUTTON RETURN " Noche 
Inmal ":GOTO zuw_10 

RETURN 

LABEL me 1_d11 

ALERT 3 TEXT " Sie haben die Falsche Abbi1dungsgrö 
ße - Y gewählt. Bitte berichtigen Sie ihre " 

Eingabe.! Der Wert darf im Bereich zwisch 

en 500 bis 5000 liegen. " BUTTON RETURN " Nochei 
nmal ":GOTO zuw_ll 

RETURN 


REM Info 

LABEL Info 
WINDOW #2 CLOSE 
WINDOW #4 OPEN 
STREAM #4 

SET FONT (3):SET POINTS(28) 

PRINT AT (2 4;2) COLOUR(12) MODE(4) " Info 
SET FONT(1):SET POINTS(IO) 

PRINT AT (2 ; 4) COLOUR(2) STR ING$(65, "*") 

SET FONT(3):SET POINTS(10):SET COLOUR(IO) 

PRINT " Dieses Programm dient zur komfortablen Dar 
Stellung von dreidimensionalen Funktionen." 

PRINT " EINIGES S 

OLLTEN SIE ABER BEACHTEN ! " 


LABEL mel_d12 

ALERT 1 TEXT " Sie müssen erst neue Funktionen Def 
in leren und in die Liste eintragen, dann ", 

" können Sie diese Taste weiter benutzen. ! 

Sie kehren jetzt wieder zum Anfang der Liste 

zurück. " BUTTON RETURN " Zurück 
GOSUB fun_l 

REM Hardcopy 

LABEL hardcopyl 

CLOSE #5:OPEN #5 DEVICE 21:USER #5 SPACE 8400,1000 
0:USER #5 ORIGIN 0;5000 
RETURN 

LABEL hardcopy2 

CLOSE #5:OPEN #5 DEVICE 21:USER #5 SPACE 8400,5000 
:USER #5 ORIGIN 0;0 
RETURN 

REM Ausdruck 
LABEL kp_t 

LPRINT CHR$(27) + "x" CHR$(1) + CHR$(27) + + C 

HR$(1 ) 

LPRINT STRING$(80, " = " ) 

LPRINT LEFT$(TIME$,8) ; TAB (73) DATE$ : LPRINT CHR$ ( 
27) + + CHR$(0) + STRING$(80, " = ") 

LPRINT:LPRINT 

LPRINT TAB (12) STR I NG$ ( 5 6 , " * '' ) 

LPRINT TAB (12) STRING$(1,"*");TAB (14) STRING$(52 
,"*");T AB (67) STRING$(1, "*") 

LPRINT TAB (12) STRING$(1,"*");TAB (14) STRING$(1, 
" *" ) ;T AB (65) STRING$(1,"*");TAB (67) STRING$(1, 
"*") 

LPRINT TAB (12) STRING$(1,"*");TAB (14) STRING$(1, 
"*");TAB (18) CHR$(14) + CHR$(27) + "G" + CHR$(2 
7) + + CHR$(1) " 3-D Funktionsplotter " + C 

HR$(20) + CHR$(27) + "H" + CHR$(27) + + CHR$ 

(0);T AB (47) STRINGS(1,) ;TAB (49) STRING$(1 
, "*") 

LPRINT TAB (12) STRI NG$ ( 1 ,''*'') j TAB (14) STRING$(1, 
"*");T AB (65) STRING$(1,"*");TAB (67) STRINGS(1, 
" * " ) 

LPRINT TAB (12) STRING$(1,"*");TAB (14) STRING$(52 
,“*") ;T AB (67) STRING$(1, " * " ) 

LPRINT TAB (12) STRINGS(56,"*" ) 

LPRINT CHR$(27) + "E" 

LPRINT STRING$(80,) 


PRINT " Vergessen Sie NIE wenn Sie einen Ausdruck 
machen wollen.beim PROGRAMMSTART Im Hautmenue " 
PRINT " die Druckerabfrage durchzuführen. " 

PRINT " Im Untermenue Funkt1onsparameter,Menuepunk 

t ABBILDUNGSWERTE wurde der Punkt -> Linien- " 

PRINT " anzahl <- so gewählt daß die Graphik imm 

er mit der Höchsten L1niennzah 1 (30) gezeichnet w 
1 rd . " 

PRINT " Sollte die Linienanzahl zu hoch sein, könn 
en Sie denn Wert ja nach unten setzen.Dies ist b 
ei manchen " 

PRINT " Funktionen von nöten . " 

PRINT " Wollen Sie neue Funktionen ins Programm ei 
nbinden.so müssen Sie dies ins Programmlist 1ng b 
ereich " 

PRINT " (Funktionsdefinition) ei nt ragen.Bitte halt 
en Sie den vor geschribenen Weg ein. " 

PRINT " 1. Label benenen Beispiel: 

( f 7 ) 

PRINT " 2. Funktion definieren Beispiel: ( 

i= DE F FN y(x,z)=-l/(x*x+z*z) 

PRINT " 3. Auf Untermenue Funktionsparameter verwe 
Isen Biespiel: (GOSUB unm_pa) " 

PRINT " 4. In die Liste Funktionen eintragen und a 

uf Label -> taste <- verweisen " 

PRINT " Es wurden einige Funktions1isten und Taste 
n labels vorbereitet, sie müssen nur noch Ihre E 
Intragungen " 

PRINT " vornehmen und aufrufen. ! " 

SET FONT(1):SET POINTS(IO) 

PRINT AT ( 16;21 ) M0DE(4) COLOUR(15) "-> Bitte 

Leertaste drücken <- " 

REPEAT 

UNTIL INKEY$=" ":WINDOW #4 CLOSE:CLOSE 2:OPEN 2 WI 
NDOW 2:STREAM #2:WINDOW #2 OPEN:WINDOW #2 TITLE 
":GOSUB hauptmenue 

REM Fehlermeldungen 

LABEL feh 

ON ERROR GOTO fehler 
RETURN 

LABEL fehler 
fehle r= ERR 

IF feh 1e r=110 THEN RESUME NEXT 
IF fehler=17 THEN RESUME NEXT 

IF fehl er >100 AND fehler <109 THEN RESUME NEXT 
ON ERROR GOTO 0 


Listing FLUCHT 


Listing FLUCHT 
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Wissen ist Macht. 

Neu im DMV-Verlag: Computer-Wissen. Ein Magazin, 
das Ihnen Wissen über Ihren PC vermittelt, das ändere nicht haben. 

Unsere Themen: Alles, was Ihnen hilft, den PC besser zu nutzen und zu 
verstehen. Mit DMV-Computer-Wissen steht Ihnen das gesamte Know-how der 
DMV-Redaktionen in leichtverständlicher Form zur Verfügung. 


Aus dem Inhalt: 

Programme: 

- Deutsche Fehlermeldungen in 
GW-BASIC 

- Datei- und Verzeichniswahl mit 
Cursortasten 

- BASIC-Programme automatisch 
strukturieren 

- Konvertierungsprogramm 
von GW nach Turbo 

Routinen: 

- Umfangreiche Berechnungs¬ 
funktionen 

- Konfiguration feststellen 

- Hardcopy programmgesteuert 

- Grafikroutinen 

- Mausroutinen mit Testprogramm 

Specials: 

- Kalenderberechnungen 

- Wahrscheinlichkeit und Statistik 

- Literaturverzeichnis zum 
Thema BASIC 

Und vieles anderes mehr: 

Insgesamt über 500 Funktionen! 

Damit Sie das Rad nicht ständig neu er¬ 
finden müssen, steht Ihnen im ersten 
Band von DMV-Computer-Wissen eine 
in Umfang und Vielfalt unvergleichli¬ 
che Routinensammlung für Ihre eige¬ 
nen Programme in GW-, Turbo- und 
Quick BASIC zur Verfügung. Alle Li- 
stings und Programme sind auch auf 
Diskette erhältlich. 





Super-Toolbox für 
eigene Programme 


BASIC-Routinensammlung 
mit über 500 Funktionen! 


Deutsche Fehlermeldungen 
zum ’Nachladen’ 


Programmkonverter 
GW- 0 Turbo BASIC 


’Call Interrupt’ 
in GW-BASIC 


AB SOFORT IM HANDEL 


DMV-Computer-Wissen Band 1: Basic-Toolbox 18 , - DM* 

I DMV-Computer-Wissen IDATABOX (2 stck. 51/4“ und 1 stck. 31/2“) je 35 , - DM* 


* Unabhängig von der Anzahl der bestellten Artikel berechnen wir für das Inland 4, - DM 
bzw. für das Ausland 6, - DM Porto und Verpackung. Bitte benutzen Sie die Bestellkarte. 


DMV-Verlag ■ Postfach 250 ■ 3440 
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Bücherecke 


Pas große PC-Basic Buch 


Aiilcr. Heinz-Josef Bonunms 
Verlag: Denn Becker 
Seilen 734 
Breis: 69. - DM 


Den Namen ’grolV trägt diese Publika¬ 
tion aus dem Hause Data Becker nicht 
ohne Grund, hat es doch einen Umfang 
von fast 750 Seiten. 

Aber auch der Inhalt kann überzeugen: 
Neben ausführlichen Abhandlungen zu 
den Sprachen QUICK-, TURBO- und 
GW-BASIC stehen viele mehr oder 
weniger große Programmbeispiele, die 
den Gebrauch des jeweiligen Befehls 
erklären. 

Ein 13seitiges Stichwortverzeichnis 
sorgt dafür, daß Sie jeden Befehl bei 
Bedarf sofort erklärt finden. Ebenfalls 
interessant — speziell für Fachleute un¬ 
ter den BASIC-Programmierern — ist 
die Liste der BIOS- und DOS-Aufrufe, 
die unter BASIC getätigt werden 
können. 

Pas große DR DOS Buch 


Autor: Jörg Schieb 
Verlag: Data Becker 
Seilen: 577 
Preis: 59. - DM 


Dieses mit rund 580 Seiten recht kom¬ 
plexe Buch beschäftigt sich ausschließ¬ 
lich mit dem Betriebssystem DR (Digi¬ 
tal Research) DOS und seinen Befeh¬ 


len. Überzeugend ist der Aufbau und 
die Organisation des Buches. Langsam 
wird dem Anwender Schritt für Schritt 
von der Installation über den ersten 
Start bis hin zur Erklärung der CON¬ 
FIG.SYS- und AUTOEXEC.BAT-Da- 
tei alles erläutert, was in irgendeiner 
Form mit DR DOS zusammenhängt. 
Viele Abbildungen verdeutlichen das 
im Text Beschriebene und machen es 
so jedem möglich, alles genauestens 
nachzu vollziehen. 

Systemtuning mit TSR- 
Program men 


Amor: Günter Born 
Verlag: Addison- Wesley 
Seiten: 252 
Preis: 69,- DM 

-___•_Ü_ 

Damit die Entwicklung von speicherre¬ 
sidenten Programmen nicht nur einigen 
System-Insidern Vorbehalten bleibt, 
wurde dieses Buch verfaßt. Es handelt 
alle beachtenswerte Punkte bei der Er¬ 
stellung von TSR-Programmen (TSR 
= terminate and stay resident) in einem 
netten Geplauder ab, ohne dabei eine 
wirklich konsequente und konzentrier¬ 
te Abhandlung des Themas zu präsen¬ 
tieren. 

Die im Buch vorgestellten Programme 
sind sehr nützliche Utilities, die aller¬ 
dings vor allem in den Fällen Map, 
Mark und Release schon aus der Zeit¬ 
schrift Pascal/toolbox bekannt sind. 


Daß in bezug auf die Vollständigkeit 
der DOS-Aufrufe auf ein Werk des 
gleichen Autors verwiesen wird, soll 
an dieser Stelle ünkommentiert 
bleiben. 

Für 69,— DM ist der Informationsge¬ 
halt sicherlich ein wenig dürftig ausge¬ 
fallen. 

MS-DOS für Einsteiger 


Autoren: Helmut Tomsdorf, Manfred Tornsdorf 
Verlag: Data Becker 
Seiten: 344 
Preis: 29. DM 


Wer nun zum x-ten Male eine Aufzäh¬ 
lung aller MS-DOS-Befehle in Buch¬ 
form erwartet, dem soll an dieser Stelle 
Entwarnung zuteil werden. Dieses 
Werk befaßt sich mehr mit den kleinen 
Problemen, die Einsteiger mit diesem 
Betriebssystem haben. Da auf die Er¬ 
klärung so mancher, fast nie gebrauch¬ 
ter Befehle verzichtet wurde, bleibt 
Platz für eine Reihe hilfreicher Kapitel, 
die sich dann unter anderem mit der 
DOS-Shell oder der Nutzung des DOS- 
Fensters unter Windows beschäftigen. 
Ein kleines Lexikon der wichtigsten 
Begriffe aus dem Bereich der EDV 
rundet das Ganze zu einem gut lesbaren 
und dabei so manchen Tip gebendem 
Buch ab. 

Das große PC Public Domain/ 

Shareware-Buch 


Autor: Klaus Schlenrner 
Verlag: Data Becker 
Seilen: 283 
Preis: 39, - DM 


Der Titel dieses Buches ist etwas irre¬ 
führend, denn der Leser bekommt 
nicht etwa eine Abhandlung über Pu- 
blic-Domain- oder Shareware-Pro¬ 
gramme oder eine große Übersicht 
über das schier unendliche Angebot 
solcher Software geliefert. Vielmehr 
richtet sich dieses Buch an jene, die be¬ 
stimmte Anwendungen aus dem PD- 
Bereich erstanden haben und weiterge¬ 
hende Informationen über die Anwen¬ 
dung und Installation dieser Program¬ 
me benötigen. 

Das Spektrum der Anwendungen von 
Text- und Datenverarbeitungen über 
Tabellenkalkulationen und Archivie¬ 
rungsprogramme bis zu Virusschutz¬ 
software ist durch Vorstellung der 
wohl bekanntesten PD-Vertreter dieser 
Sparte beleuchtet (PC-Write, PC-File. 
AsEasyAs, PKARC, Flu-Shot Plus). 

(rs/jf) 
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Das Buch zum JOYCE! 


Alle Besitzer eine&PGVyj256/ 
8512/9512, die ahn jgj yBaß der 
Horizont ihre^ojfpnters weit 
über LocoSo#bfe|yausgeht, 
finden jet^jpijgpestätigung: 

JOYCE 



- mehr Textsystem 

Die Autorer^^ c^^WcE-Szene keine Unbekannten, 
haben auf übei^^Weiten alles Wissenswerte über die 
“andere Seltej^^FÖWs zusammengetragen. Anfänger 
wie wie Programmierer finden in die¬ 

sem BÄ's^Mreichen Schatz an Tips und Tricks sowie 
es Nachschlagewerk. Erstmals wird 
uch zum PCW ein “heißes Eisen“ aus- 
delt: die Hardware. Dieses Kapitel zeigt 
öglichkeiten des JOYCE - so wird bei- 
'ei&fder Anschluß eines Sprachsynthesizers und 
elbstbau einer Schnittstelle besprochen. 
Ausführliche Kapitel über BASIC und LOGO erlauben Ih¬ 
nen, diese Sprachen auszureizen: Anfänger, die sich 
erstmals in der Programmierung versuchen wollen, 
finden durch sinnvolle kurze Beispielprogramme wert¬ 
volle Unterstützung. Ein besonderes “Schmankerl“ ist 
das große Extra-Kapitel zur JETSAM-Dateiverwaltung! 


Platinenlayouts im Buch 


69,- DM 



jäß?!* 


oMY 


and 


Mai«!* 


Saison 


der 


Oer Knüller 


Aus dem Inhalt: 

Sprachen: 

LOGO als Grafiker 
komplette Befehlsübersicht 

BASIC: Erläuterungen aller Befehle mit Beispielpro¬ 
grammen 

JETSAM: Generator für JETSAM-Verarbeitung! 
Kurzübersicht: Turbo PASCAL & C 

Programmierhilfen, Tips und Tricks: 

Steuercode-Tabellen für Bildschirm und Drucker 

XBIOS-Routinen 

OUTs und POKEs unter BASIC 

Hardware 

Speichererweiterung 

Zweitlaufwerk 

Druckkopfreinigung 

Bildschirminverter 

Schnittstelle am Expansionsport 

Sprachsynthesizer 

324 Seiten mit farbigen Abbildungen 
Hardcover, gebunden 
ISBN 3-926177-02-0 

Weiterhin erhältlich: 

doppelte Platine, geprüft 

3-Zoll-Disketten mit allen Dateien und Programmen 
Bestellkarte im Buch 


Ebenfalls von DMV 


Praktische Textverarbeitung 
mit Joyce 

Ein Buch/Disketten-Paket. Der Au¬ 
tor Jürgen Siebert zeigt in diesem 
Buch Möglichkeiten der Textverar¬ 
beitung auf, die Sie von LocoScript 
nicht erwartet hätten... Von der 
Pike auf werden Sie an den Um¬ 
gang mit Schablonen und Stan¬ 
dardlayout herangeführt. Einige 
Abstecher führen Sie anhand an¬ 
schaulicher Beispiele an Textverar¬ 
beitung und CP/M (ED/Wordstar) 
heran. 

Aus dem Inhalt: 

- LocoScript Spezial - Softwaretraining 
für Fortgeschrittene 

- Fehler im System: Wie rette ich meinen Text? 

- Joyce-Tasteninstallationsdatei für das 
Programm Wordstar 

- Aleatorische Poetik: Der Computer dichtet 



Auf Diskette: über 50 Dateien mit Schablonen, Briefen, Post¬ 
karten, Serien-Rundschreiben, Formularen, Etiketten, Druck¬ 
beispielen, Schriften, Bildschirm-Installationen und vieles 
mehr. 


Leinen-Hardcover, 207 Seiten, 
3-ZoU-Diskette Best.-Nr. 401 


DM 89,-* 


* Unabhängig von der Anzahl der bestellten Bücher berechnen wir für das Inland 4,- DM bzw. für das Ausland 6,- DM Porto und Verpackung. 


Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 






















Abenteuer Fliegen 

Fluasimulationen auf dem PC 


Der Traum vom Fliegen ist so alt wie die Menschheit. Ihn kann man sich 
auch auf dem PC erfüllen — in gewisser Weise. Einige der Möglichkeiten 
seien hier vorgestellt. 


Simulationen sind ein wichtiges An¬ 
wendungsgebiet für Computer. Spiele¬ 
risch werden Simulationen, wenn sie 
neben einer Umsetzung der Realität 
auch Vergnügen für den Anwender 
bieten. Flugsimulationen haben nicht 
nur in der Realität, sondern auch in der 
Welt der Computer-Spielerei ihren fe¬ 
sten Platz eingenommen. Das Erschei¬ 
nungsbild der modernen Flugsimula¬ 
tionen auf dem PC hat sich im Laufe 
der Zeit erheblich gewandelt. Wer über 
eine gut ausgebaute Sammlung an Pu- 
blic-Domain-Software verfügt, kann 
sich an Hand eines der ersten Volumes 
der PC SIG-Library vom 'damaligen’ 
Stand der Simulationen ein eigenes 
Bild verschaffen: Mit der heutigen 
Qualität in Sachen Grafik und Optio¬ 
nen können diese Programme nicht 
mehr mithalten. 

Die stark vereinfachten Cockpits wur¬ 
den durch wesentlich detailliertere er¬ 
setzt, auch andere Perspektiven, wie 
der Blick aufs eigene Flugzeug von au¬ 
ßen in einer realistischen 3D-Land- 
schaft. sind nun möglich. Der heutige 
Markt bietet eine Vielfalt von Simula¬ 
tionen. selbst der im folgenden vorge- 
stelltc Querschnitt ist lange nicht voll* 


Friedlich über den Wolken 

Der unbestrittene Klassiker der Flugsi¬ 
mulatoren ist sicherlich der FL.IGHT 
SIMUL.ATÖR von Sublogic/Micro- 
soft; nicht nur der älteste, sondern auch 
realistischste und komplexeste Vertre¬ 
ter seiner Art. Alt ist er insofern, als er 
schon auf Homecomputern wie Apple 
oder C64 Aufsehen erregte, zur Reife 
ist er auf dem PC gelangt: Die erste 
Version. FS II, lieferte schon die we¬ 
sentlichen Elemente, die den Reiz der 
Simulation ausmachen. Als Fluggebiet 
stehen rund 120 Flugplätze in den ge¬ 
samten USA zur Verfügung, original¬ 
getreue Funkfeuer und Richtstrahler 
sorgen für die Orientierung. Dadurch 
ist realistischer Instrumentenflug mög¬ 
lich, man kann jedoch auch in der 3D- 
Landschafl nach Sicht fliegen. Diese 



Landschaften werden durch sogenann¬ 
te Sceneries gestaltet: Eine Darstellung 
der gesamten USA ist viel zu aufwen¬ 
dig. daher werden die Regionen in 'be¬ 
wohnte' und 'unbewohnte’ Gebiete 
teilt. Bewohnte Geb« 
häfen und wichtig 

Wß ä . 

York (Empire State Buil¬ 
ding. World Trade Center oder Frei¬ 
heitsstatue) odt 
Andere als separate Disketten erhältli¬ 
che Sceneries enthalten weitere Teile 
der USA, aber auch Japans oder Euro¬ 
pas. (Letztere mit Frankreich. England 
und dem südlichen Deutschland - 
Frankfurt. München, 

Während FS II nur CG 
unterstützte, bieten di 
sionen auf EGA 
Grafiken und divei 
aktuelle Version 
che Details in Grafik 
Funktionen (Design eigener 
ge. vom Segelflieger bis zum Jet)."Ne¬ 
ben der reinen Fliegerei bietet der 
FLICHT SIMULATOR auch, etwas 
aktionsreichere Modi: vom 
mR 



gramm. Die Erforschung aller Optio¬ 
nen gerät beim FLIGHT SIMULA¬ 
TOR zum Lebenswerk... 

Was beim FLIGHT SIMULATOR die 
Komplexität der Optionen ist. ist beim 
ADVANCED FLIGHT TRAINER II 
von Electronic Arts die Vielfalt der an¬ 
gebotenen Flugzeuge: Rund 20 Typen 
stehen zur Wahl. Das Spektrum reicht 
von historischen Doppeldeckern über 
Propellermaschinen und Jets bis zu Ra¬ 
ketenflugzeugen; wer möchte, darf 
auch einem Space Shuttle zur erfolgrei- 
tLandung verhelfen. Die Grafik ist 
r neuen Version hervorragend 
I war da etwas dürftig), ebenso 
dienbarkeit. (Ein Detail am Ran¬ 
de: AFT II ist der einzige Simulator, 
der die Red- und Blackouts, jene ge¬ 
fürchteten Sehstörungen in Extremsi¬ 
tuationen, auf EGA und VGA reali¬ 
stisch darstellt.) Die Aufgaben, die 
dem Spieler gestellt werden, sind viel¬ 
fältig. Neben der Beherrschung der 
verschiedenen Maschinen bei Start, 
Freiflug und Landung können auch 
Luft- und Hindernisrennen sowie For 
and 


Ra mbo im Cockpit 



den. in den neueren 
auch komplette Flugstunden zum Pro¬ 


friedlich geht es nicht in allen Simu¬ 
lationen zu: Wenn man schon einen 
Militär-Jet fliegt, so möchte man doch 
ein wenig durch die Gegend ballern. 
Kein Problem, auch hier gibt es genug 
Möglichkeiten. Das Spielprinzip ist in 
allen Fallen identisch: Man bekommt 
gewisse Missionen zugeteilt, die es zu 
erledigen gilt. Bei Erfolg winken Be¬ 
förderungen, ansonsten bekommt man 
einen Staatsakt finanziert... 

Mit FALCON Fl6 von Spectrum Ho- 
lobyte und F16 COMBAT PILOT von 


Das Nonplusultra 
aller Flugsimulato¬ 
ren: der FS IV von 
Microsoft 
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Digital Integrations liegen zwei Simu¬ 
lationen vor, die sich auf einen Flug- 
zeugtyp beschränken. Auf den ersten 
Blick sehen sie sich recht ähnlich: eine 
Vielzahl von Missionen. Option für 
Luftkampf via Modem und lediglich 
die Unterstützung von CGA und Her¬ 
cules. Im Detail zeigen sich jedoch Un¬ 
terschiede: Während FALCON relativ 
einfach zu handhaben und daher für 
Linsteiger zu empfehlen ist. bietet 
COMBAT PILOT wesentlich komple¬ 
xere Möglichkeiten und etwas bes¬ 
ser gestaltete Grafik. (Den letzten Vor¬ 
teil macht FALCON in einer separat 
erhältlichen EGA-Version wieder 
wett, die jedoch recht teuer ist...) 

Mit den Fiugsimulationen von Micro- 
prose war das bislang immer eine 
merkwürdige Sache: Entweder waren 
sie zwar schön gemacht, aber kaum zu 
bedienen (HELLCAT ACE, SEIT- 
FIRE ACE), oder umgekehrt (Fl5 
STRIKE EAGLE I). Lediglich die 
Zielrichtung war und ist identisch: 
Man darf auf alles schießen, was 
'Uncle Sam* nicht gelallt oder gefallen 
hat. ln den frühen Simulationen waren 
dies deutsche und japanische Flugzeu¬ 
ge im Zweiten Weltkrieg, später wand¬ 
te man sich der Tagespolitik zu. (Eine 
Mission gegen Libyen oder Persien ge¬ 
hört heute zu fast jeder Simulation von 
Microprose.) Das moralische Defizit 
wird jedoch durch technische Perfek¬ 
tion bei den neueren Simulationen ge¬ 
tarnt. F19 STEALTH FIGHTER und 
Fl5 STRIKE EAGLE II (letzterer eine 
stark verbesserte Neuauflage des Klas¬ 
sikers) warten mit teilweise animierter 
und detailfreudiger 3D-Landschafl so¬ 
wie atemberaubenden Perspektiven 
auf. F15 II liefert auf VGA sogar einen 
realistischen Horizont, bei dem Luft 
und Land in feinen Farbnuancen inein¬ 
ander übergehen. Jeder Simulator bie¬ 


Fliegen K ml sc hie- 
ßcn: Mil dein F 15 
sind Luftkämpfe an 
der Tagesordnung 


tet eine Vielzahl von Missionen in vier 
Regionen der Welt, bei Fl9 kann dar¬ 
über hinaus mit einem riesigen Waffen¬ 
arsenal experimentiert werden. Zwar 
ist Kampf der primäre Inhalt dieser Si¬ 
mulationen, in den Trainermodi kann 
man jedoch auch friedlich auf Erkun¬ 
dung gehen. (Besonders sehenswert ist 
der Tiefflug über North Cape und Cen¬ 
tral Europe bei Fl9 und über Vietnam 
bei F15 ) “i 

Kamptsimulationen. die mehr als ein 
Flugzeug anbieten, sind selten. Eine 
davon ist FIGHTER BOMBER von 
Activision, die gleich sieben Maschi¬ 
nen für die eigene Verwendung und 
sechs Gegner zur Wahl stellt. Man gibt 
sich pazifistisch, denn es ist alles nur 
Übung, deren Zweck die Erringung 
der ’Curtis Le May -Trophy' ist. Dazu 
müssen im Herzen der USA zwölf Mis¬ 
sionen (und die zugehörigen Ziele) er¬ 
folgreich erledigt werden. Dies ist 
nicht so einfach, da die Navigation 
nicht sehr erleichtert wird, auch hat 
man öfters überraschende Gegner oder 
ein Zeitlimit im Nacken. Dadurch wird 
FIGHTER BOMBER für Anfänger 
weniger interessant, da der Einsteiger¬ 
frust sehr hoch sein kann. Für ausge¬ 
buffte PC-Piloten ist das Programm je¬ 
doch eine Herausforderung. Leider un¬ 
terscheiden sich die Flugeigenschaften 
der einzelnen Maschinen nur minimal, 
ebenso minimal ist die Komplexität der 
Cockpits, die nur das Nötigste enthal¬ 
ten — Action und Strategie stehen hier 
im Vordergrund, nicht so sehr die rea¬ 
listische Simulation. Grafisch kann 
sich FIGHTER BOMBER durchaus se¬ 
hen lassen (schon mal am Mount Rush¬ 
more zerschellt?), einige der Aktionen 
wie das Auftanken in der Luft sind 
ebenfalls spektakulär. Mit einem Desi¬ 
gner lassen sich auch neue Missionen 
erstellen. 




utze 
nposirio- 
rledigung 


Besondere Klasse bietet das neue Epos 
aus dem Hause Lucasfilm: THEIR 
FINES'T HOUR: THE BATTLE OF 
BRITAIN (kurz BOB) ist eine Simula¬ 
tion des Luftkampfes über England im 
Zweiten Weltkrieg. Die Wahl der Sei¬ 
ten steht frei: Zwei englische und fünf 
deutsche Flugzeugtypen stehen zur 
Auswahl. Die Missionen reichen vom 
gingen von Bombern über Bombcr- 
en bis zu Bombenangriffen, sei 
leichten Stukas oder schweren 
1-Bombcrn. Je nach Art des 
igs variieren auch die 
des Spielers: Pilotsein ist 
man darfauch mal als.Bor 
oder in den divers* 
neu tätig sein. Nfi 
einzelner: 
pleiter^ 
schiedene 
ben, von ihrem 
gang anderer Pari 
Wer den Gegnej 
gezwungen hat. ist 
ist, insbesondere atu 
wert, auf der AdLib-Kal 
brauchbarer Sound gelicfer 
lungen ist auch die Replay- 
der man seine Erfolge bei freier 
raliihrung festhalten kann. Abgei 
wird BOB durch ein echtes Handl 
welches auf fast 200 Seiten viele 
rische und technische Details sox 
eine Menge Bilder liefert. Ein wj 
L eckerbissen. 

Die Quai der W ahl... 

...kann dem Hobbypiloten nicht abge¬ 
nommen werden, Empfehlungen sind 
jedoch möglich. Wer sich ernsthaft mit 
der Fliegerei beschäftigen möchte, 
kommt um den F LIGHT SIMULA¬ 
TOR. möglichst in der Version 
IV. nicht herum. Wer mehr aui 
steht, ist mit einem der neueren 
lationen von Microprose gut 
Fliegen auf dem PC ist zwar m 
billiger als in der Realität, etwas Inve 
stition ist dennoch nötig: Für den vol¬ 
len Genuß sollte man einen AT mit 10 
MHz oder mehr sowie EGA oder VGA 
besitzen, ansonsten gerät auch die be 
sie Simulation zum Ärgernis. Auch das 
Geld spielt eine gewisse Rolle, denn 
die meisten Simulatoren kosten um die 
100 Mark, für FS IV sind rund 180 
Mark zu berappen. Die"hier Vorgcstcll- 5 
ten Programme bieten dem ernsthaft 
Interessierten jedoch einen reellen Ge¬ 
genwert, so daß doch etwas ’Wahlhil- 
fe geboten ist. (Michael Anton/jf) 




5’90 PC 99 






























I—PC-T rickkiste 



Die GEM-Trickkiste 


gramme, auch Accessoires genannt, 
sind eine wertvolle Hilfe für die Arbeit 
mit GEM — besonders die, die man 
sich teuer erwerben muß wie GEM 
DIARY. 

Accessoires nach Bedarf 

Teuer sind sie nicht nur in Sachen An¬ 
schaffung, sie gehen auch auf Kosten 
des Speichers. Nun ist die Möglichkeit 
gegeben, sie bei Bedarf auszublenden, 
indem man sie umbenennt. Sie ver¬ 
stecken sich im Verzeichnis \GEM- 
BOOT (\ GEMAPPS \ GEMSYS ab 
Version 3) in den Dateien vom Typ 
*.ACC. Ändert man den Typ, so wer¬ 
den sie nicht mehr geladen; entspre¬ 
chend mehr Speicher steht zur Verfü¬ 
gung. Von Hand kann es recht mühsam 
sein, die Umbenennungen vorzuneh¬ 
men, aber mit Batchfiles geht es recht 
bequem. Die Listings 1 und 2 zeigen 
die Version für GEM 2, Listings 3 und 
4 für GEM 3. Vor der ersten Verwen¬ 
dung empfiehlt es sich, alle verfügba¬ 
ren Accessoires zu aktivieren. 


Tips und Tricks zu GEM 

GEM ist eine für kleine und ’langsame’ Rechner sehr gut geeignete Benutzer¬ 
oberfläche, für die Amstrad-Rechner ist sie als ’ geschenkter Gaul’ trotz WIN¬ 
DOWS und OS/2 topaktuell... Machen Sie mit bei unserer GEM-Trickkiste! 


Alle Welt spricht von Microsoft, von 
WINDOWS, OS/2 und PRESENTA¬ 
TION MANAGER. Digital Research 
scheint nicht mehr “up to date“ zu sein, 
obwohl sich mit DR DOS eine Wende 
anzubahnen scheint. Ein Klassiker ge¬ 
rät dabei auf alle Fälle unter den grafi¬ 
schen Benutzeroberflächen ins Hinter¬ 
treffen, nämlich GEM. Schade, denn 
GEM ist trotz einiger Mängel eine 
Oberfläche, die gerade für 'leistungs¬ 
schwache’ Rechner, die noch nicht mit 


Abbildung 1: 

#E3801 

# W000002024C0A00 C: \ GEM¬ 
APPS \*.*@ 

# W0000020D4C0A00 @ 


Abbildung 2: 

#E3801 

# W000002024C0A00 C: \ GEM¬ 
APPS \*.APP@ 

# W0000020D4C0A00 @ 


Megabytes, einer ’3’ oder gar ’4’ vor 
der Prozessornummer oder im UKW- 
Bereich liegenden Taktfrequenzen 
protzen können, geeignet ist. Daher 
fordern wir Sie auf: Senden Sie uns 
Tips und Tricks zu GEM und seinen 
Applikationen, und helfen Sie damit 
bei Wiederbelebungsversuchen. Drei 
kleine Beispiele haben wir für Sie 
schon parat. 

What’s In A Name... 

Haben Sie sich schon gefragt, welches 
System hinter der Benennung von den 
vielen Dateien von GEM steht? Wir ha¬ 
ben einiges für Sie entschlüsselt und in 
Bild 1 dokumentiert (natürlich ohne 
jede Gewähr). 

Damit sollten die Mysterien, die die 
Namen von so vielen Dateien um- 
schleiern, ein für allemal entmystifi- 
ziert sein. Gewisse Abweichungen gibt 
es natürlich auch hier, doch mit ein biß¬ 
chen Fantasie kann man diese dann 
leicht verstehen. Apropos Namensge¬ 
bung: In Bild 2 haben wir für Sie die 
gängigsten Dateikennungen aufge¬ 
führt. Transparenz ist Trumpf. Die im 
Desktop-Menü verfügbaren Hilfspro- 


Sauberer Desktop 

Hätten Sie gerne beim Start von GEM 
Ihre verfügbaren Applikationen über¬ 
sichtlich in einem Fenster — ohne stö¬ 
rende Anzeige von Zusatzdateien? 
Dann spielen Sie doch einfach etwas 
mit der Datei DESKTOP.INF herum, 
Sie finden sie entweder in \GEM- 
DESK oder in \ GEMAPPS \GEM- 


Listing 1: 

echo off 

rem — ACCS für GEM 2 — 
cd \ gemboot 
ren *.ae *.acc 
cd \ 


Listing 2: 

echo off 

rem — NOACCS für GEM 2 — 
cd \ gemboot 
ren *.acc #.ac 
cd \ 


Listing 3: 

echo off 

rem-ACCS für GEM 3 — 

cd \ gemapps \ gemsys 
ren *. ac *. acc 
cd \ 


Listing 4: 

echo off 

rem-NOACCS für GEM 3 — 

cd \ gemapps \ gemsys 
ren *.acc *.ac 
cd \ 
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PC-Trickkiste—i 


Namensqebunqsbeispiele: 

Aufbau eines Font-Namens: 


HHHASSGG.FNT 


H - Hersteller 
A - Auflösung des Fonts 
S - Art des Fonts 
G - Grosse des Fonts 
FNT - Kennung 


Aufbau des Namens eines Device-Drivers: 


HHHTTTTV.SYS 


H - Hersteller 
T - Typ des Treibers 
V - Versionskennung GEM 
SYS - Kennung 


Namenskonventionen in Gem( 




Wicht ig e Dateit ypen: 

Applikation, Anwendung 

Acessory, Hintergrundprogramm (Menü Desktop) 

Ressorce, enthält Menüstrukturen von Applikationen 

Bilder im Bitmap-format 

Metafile-Datei 

Treiber oder Konfiguration 

Zeichensätze 


Bild I: Namensaufbau unter GEM 


Bild 2: Dateiendungen unter GEM 


SYS. Bei diesem Textfile sind die 
zweite und dritte Zeile besonders inter¬ 
essant, sie bestimmen den Inhalt der 
Fenster beim Start von Desktop. Am 
Ende der jeweiligen Zeile steht eine 
Dateispezifikation, die den Inhalt der 
Fenster bestimmt. Ändern Sie diese 
beispielsweise in C:\GEMAPPS\ 
*.APP um, sehen Sie nur noch Appli¬ 
kationen... Die Arbeit kann mit jedem 


Texteditor erledigt werden, aber ach¬ 
ten Sie darauf, die übrigen Werte nicht 
zu verändern. Abbildung 1 zeigt einen 


Ausschnitt der Datei vor, Abbildung 2 
nach der Bearbeitung. 

(Michael Anton/jf) 


Aufruf 

Wenn auch Sie kurze, knackige Tips im Umgang mit GEM in der Schublade lie¬ 
gen haben, so scheuen Sie sich nicht, diese an unsere Redaktion zu schicken. 
Andere Benutzer dieser grafischen Oberfläche werden Ihnen dankbar sein. Au¬ 
ßerdem werden Veröffentlichungen natürlich entsprechend honoriert. 



FAsr BAsic Cvyi*iPiLER m 

Turbo-Antrieb für Ihre Basic-Programme! 

Basic-Compiler für CPC 464/664/6128 


Haben auch Sie sich schon immer gewünscht, daß Basic-Programme schneller laufen? 
Mit dem Basic-Compiler FaBaCom von DMV ist das kein Problem mehr: 


- FaBaCom hat den vollen Sprachumfang des Basic 1.1 
(CPC664/6128). 

- Compilierte Programme sind auf jedem CPC lauffähig. 

- FaBaCom unterstützt Integer- und Fließkomma-Arithmetik. 

- FaBaCom ist kompatibel zu Vortex-Peripherie inkl. der 
RAM-Disk. 

- Programme, die spezielle Basic-I.l.-Befehle beinhalten, sind 
auch auf dem CPC 464 lauffähig (außer FILL und MASK). 

- Alle CP/M-Dienstprogramme können genutzt werden. 

- Einzelne Programmteile können separat compiliert werden 
(z.B. wichtig bei Nachladeprogrammen). 

- Eine ausführliche deutsche Bedienungsanleitung macht Sie 
mit FaBaCom vertraut. 

DMV-Verlag ■ Postfach 250 • 


- Viele Beispielprogramme veranschaulichen die Arbeitsweise 
und zeigen die Geschwindigkeitsvorteile auf. 

- FaBaCom ist zu 100% in Maschinencode geschrieben. 


FaBaCom, Basic-Compiler, 

3-Zoll-Diskette DM 49 , — 

dazu passend empfehlen wir: 

Schneider-CPC-Basic-Trainer, . 

Handbuch, 2 Kassetten DM 29 , — 

* Unverbindliche Preisempfehlung. Unabhängig von der Anzahl der bestellten Produkte 
berechnen wir für das Inland 4,- DM bzw. für das Ausland 6,- DM Porto und Ver¬ 
packung. Bitte benutzen Sie die Bestellkarte. 

3440 Eschwege 




































































CPC: 


Die DDR spielt nicht nur in der Politik 
eine wichtige Rolle, sie ist auch in den 
Computermedien ein brisantes Thema. 
Dies betrifft insbesondere den CPC, der 
ja in der DDR sehr stark verbreitet ist. 
Das Informationsbedürfnis über Soft- 
und Hardware ist dementsprechend 
roß. Um Ihnen ein Bild über die 
chwierigkeiten im Computerbereich 
zu verschaffen, haben wir uns über die 
Lage informiert. 



Mit voller Konzentration voran: ein neuer Soft¬ 
wareknüller für den CPC 

Kennen Sie das folgende Problem ? 

Sie sitzen zu Hause oder in der Schule 
und haben Aufgaben für den Mathe¬ 
oder Physikunterricht zu erledigen. Ihre 
Arbeit ist es, nach einer Formel Größen 
zu errechnen. Und wie es das Schicksal 
will, fällt einem die richtige Formel 
nicht ein. Genau hier setzt unser Pro¬ 
gramm ein, das nicht nur alle Formeln 


speichern kann, sondern auch Formeln 
umstellt; ein Hilfsprogramm, das in kei¬ 
ner Softwaresammlung fehlen darf. 

Da aber Arbeit nicht alles ist, darf ein 
Ausgleich nicht fehlen. Deswegen bie¬ 
ten wir Ihnen in der kommenden Aus¬ 
gabe wieder ein Spitzenspiel, das nicht 
nur grafisch, sondern auch spielerisch 
ein wahrer Leckerbissen auf dem CPC 
ist. 

Des weiteren warten wieder Tips und 
Tricks rund um den CPC darauf, einge¬ 
tippt zu werden. 

_PC: 

Die Softwareentwickler sind produktiv 
wie eh und je. Neue Anwendungen 
und Spiele fallen wie die berühmten 
Sterntaler vom Himmel. Wir haben uns 
mit einer Schürze bewaffnet und den 
prallen Niederschlag auf uns prasseln 
lassen. Tests der neuen Versionen von 
Harvard Graphics und Star Writer sind 
dabei herausgekommen. Lesen Sie au¬ 
ßerdem über das neue Sierra-Spiel 
Codename Iceman und einige andere 
interessante und unterhaltsame Pro¬ 
gramme. 

In die Tiefen des Computers geht es 
dann im zweiten Teil unserer kleinen 
Serie über Mausprogrammierung. 

Die Kunst der Erstellung von Geräte¬ 
treibern wollen wir Ihnen nahebringen, 
wenn es darum geht, diese "Driver" 
verstehen und programmieren zu ler¬ 
nen. Im DOS-Einsteigerkurs befassen 


wir uns intensiv mit den externen Be¬ 
fehlen des MS-DOS-Betriebssystems. 



PCW:_ 

Wer sich einen 24-Nadel-Drucker für 
seinen PCW angeschafft hat, kann nun 
mittels der 24-Pin-Printer-Drive-Disc 
alle unter LocoScript verfügbaren Zei¬ 
chen in '24-Nadel-Qualität' aus- 
drucken. 

Kennen Sie die Vorspänne vom CPC 
oder Amiga, wo sich Freunde gegen¬ 
seitig grüßen und ein Bild den Gruß 
'verschönern' soll? Nun, jetzt brauchen 
Sie nicht mehr so neidvoll auf andere 
Systeme zu schauen, denn auch für 
den PCW gibt es endlich ein ähnliches 
Programm. Alles, was Sie benötigen, 
ist das DTP-Programm "StopPress", 
denn damit können Sie Ihre selbster¬ 
stellten Bilder direkt beim 'Booten' Ih¬ 
res PCW erscheinen lassen. 


Becker Soft- und Hardware.55 

CG Computerstore.43 

Data Junker.55 

DMV.2,11,29,39,66,67 

.83,89,95,97,103,104 


DIE INSERENTEN 


Dobbertin Elektronik.43 

G + L electronic.43 

Kosmalla + Partner.56 

Kotulla.76 

Krebs electronic.57 


Ratz Verlag.63 

Schuster Electronic.27 

Strauß Elektronik.61 

Weeske.21 

van der Zalm.57 
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Sonderhefte Joyce Nr. 2, 3, 4 
für sagenhafte 29,- DM* 


DMV braucht Platz für neue Ideen - 
darum müssen wir unsere Lager räumen. 




Allen JOYCE-Besitzern machen wir deshalb ein einmaliges Angebot: 

JOYCE Sonderhefte 2, 3 und 4 sind ab sofort im Kombi-Pack zum Preis von 29,- DM* beim Verlag zu beziehen. 
- Sie sparen mehr als 50% gegenüber dem Einzelpreis! 

JOYCE Sonderhefte sind Sonderpublikationen der PC AMSTRAD International und bieten jeweils auf 120 Seiten 
ausschließlich erstmalig veröffentlichte Beiträge, Tips und Tricks zu PCW 8256, 8512 und 9512. 


Aus dem Inhalt 
JOYCE Sonderheft 2: 

Adreßverwaltung 

Archivprogramm 

(Video-oder Literaturverwaltung) 
PASCAL-Compiler in BASIC 
Suburbia (Spiel ähnlich Monopoly (R)) 
Turbo-PASCAL-Grafikroutinen ohne GSX 
Komfortable Balkengrafik 
JOYCE-Zweitlaufwerk selbst anschließen 
3-D-Plotter 

Etikettendruckprogramm 
Ordnung auf der Diskette mit LocoScript 
Funktionstasten selbst belegen 
Spaltensatz unter LocoScript 
dßase-Handbuch selbst ausdrucken 
LOGO- Funktionenzeichner 

Und dazu die Databoxen 


Aus dem Inhalt 
JOYCE Sonderheft 3: 

Vokabeltrainer 

RAM-Monitor-Speicherinhalte 
verändern 
Memory-Spiel 
Mini-DTP-Programm 
Drucker-Spooler unter CP/M 
Disketten-Kopierprogramm bis 
43 Spuren 

Reset ohne Datenverlust 
Grafik auf dem JOYCE-Drucker 
Tastaturbelegung unter CP/M und 
LocoScript ändern 
Reset ohne Datenverlust 
Super-Werkzeugkiste dBase 
Grafikutilities für LOGO 


aller Sonderhefte im Paket! 


Aus dem Inhalt: 

JOYCE Sonderheft 4: 

Strickmustergenerator 
Wordstar-Verbesserungen 
Bundesligasimulator 
Super Reaktionsspiel 
FILEMANAGER, Pulldown-Menüs 
Stichwortverzeichnis, 
Astrologieprogramm 
Diskettenmonitor 
Hauptstädte raten in LOGO 
Statuszeile für dBase und Basic 
Hardcopyroutine für 24-Nadler 
LOGO macht Schachteln 
dBase-Literaturverwaltung 
Universelles Werkzeug zur Veränderung 
von dBase-Dateien 


5 Disketten Joyce-Power für traumhafte 79,- DM* 

* Unabhängig von der Anzahl der bestellten Artikel berechnen wir für das Inland 4,- DM bzw. für das Ausland 6,- DM 
Porto und Verpackung. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 
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Sonderhefte 

Nr. 3,5,6,7 

4 Stück = 28,- DM 


Jetzt zugreifen 


Halber Preis/ganze Leistung 


Superpack 

LH lLH 


Jetzt wird es aber höchste 
Eisenbahn, daß Sie endlich 
unsere CPC-Sonderhefte 
kennenlernen! 

Kraftfutter für Ihren CPC - 
jetzt zum günstigen Preis. 


1 0 


CPC-Sonderheft 8 


Programme 

Bericht 

DFÜ- Ihr Anschluß an die Zukunft. 

Alles über das Thema DFÜ. Von 
Zubehör bis hin zu Telefonnummern. 
Inklusive Protokolle. 

Anwendung 

Die Weltzeit im CPC 

Berechnungen von Zeitzonen in aller Welt. 

Blick zu den Sternen 

Ein Satellitenberechnungsprogramm. 

Spiele 

Golddukaten und Schiffskanonen. 
Super-Grafik-Handelssimulation ä la Hanse. 

Ran an die Kisten 

Super-Adaption des Strategiespiels "Soko- 
ban“. Mit eigenem Editor! 


Aus dem Inhalt 


Bistro “La Cuisine“ 

Steuern Sie einen programmierbaren 
Roboter, der hoch hinaus will. 

Tips und Tricks 

Nützliche Betriebsadressen im CPC. 

Klein, aber oho 

Viele Super-Programme in IkByte. 

Schnell abzutippen, mit überraschender 
Wirkung. 

Hardware 

Das CPC Fitness-Center. 

Der absolute Wahnsinn. Eine Joystick-Matte 
im Selbstbau. Ein Vergnügen für die ganze 
Familie. 

CP/M intern 

Alles über das Betriebssystem CP/M. 


nur 14,- DM* 
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8-89/90 

Spiele: 


Let's work 

- Super Strategiespiel 
Hanseat 

- Handel Im Mittelalter 

Tips & THok» 

System-Calls 
Aufrüstung des OMP 2000 
Elnzelschrtttslmulotor 


Hardware: 

Sprungmatte mit ' .1 

Joystlckanschluß • ■ 


Grundlagen: ^ 

Datenfernübertragung 
- Das Tbr xur Welt 

Anwendungen: 

Weltzeituhr Im PC 
Satellitenbahnen berechnen 
Fraktalgenerutorzum Abtippen 


A. 


f. 


* Unabhängig von der Anzahl der bestellten Artikel berechnen wir für das Inland 4,- DM bzw. für das Ausland 6.- DM Porto und Verpackung. 


Bitte benutzen Sie die Bestellkarte. 

DMV-verlag - Postfach 250 - 3440 Eschwege ; 
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